程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
. h( t1 w7 E7 F9 n& q! ?; Kis
- V" i" G. F2 F" C        i,j,Rows,Lines:integer;
( y, p8 X: w  M5 {        MachineName,BufName:string;
        Machine,Buf:object;
do
' s6 O7 \( U' \4 |  `        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
. k9 E8 H9 l1 Q9 I                        print "Yes";
                when 32 then
                        print "No";
                else
( p; U# e% e0 E0 `( Z, v. d                        print "Cancel";
2 R) k) d& q5 K! D) P                end;
        EventController.stop;
end;
, y# ]7 j9 R7 @0 ]PartsTable.delete;
- e( u1 b% C6 a, f: C& d0 Cfor i:=1 to Number_Of_Machine loop
7 }' O2 l& u8 Q: o( ~+ f, M        for j:=1 to Number_Of_Machine loop
* W; N2 m  Q7 _1 v+ {/ R- H1 s5 z                if j<i then
) v: F( I- R5 |. G3 r5 K. [                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
, V9 j, D, q5 ?! y                else
8 Y7 G; S* y, q, n$ |                        if j=i then
% m% {! z6 x' n; d  p                                D_From_To_Chart[j,i]:=0;
2 ^  W) n7 j; F# V1 D& u# D7 Q                        else
: m3 ?: E; y: p: h! P: H                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
/ I/ ]" O! M4 Z6 G, l. g: H+ ^                                end;
% \8 ~; r: X9 t/ |1 [. `8 F                        end;
                end;
. H3 T; F4 O) v1 J( `, R- T        next;
+ F2 q) y0 O' F3 O( V, R# z1 m6 k( bnext;
: B7 ]0 I. L, d+ o# O. R' {
end;

6 c0 f2 K2 a  m+ G. P, ~) C    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
3 Z: F% ^7 D( Z# y4 J                    if W_From_To_Chart[j,Rows]>0 then
6 F8 [! Q  X/ d* J7 ~+ C                            Lines :=Lines+1;
* A3 H5 C) @% _. R, g                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
# m- k) d, a9 T                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
# S5 ?# V$ |& Q                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
0 Z, s" \+ B4 @: J, P* H                end;
        next;
% m  w; b" l  z2 c; K: o        MachineName :=sprint("M",Rows);
4 s- z% n; `5 F7 r        Machine:=.MaterialFlow.SingleProc.createObject(current,X_pos_init+D_From_To_Chart[Number_Of_Machine+1,i],Y_pos_init+D_From_To_Chart[Number_Of_Machine+2,i]);
# P5 r1 x' y* F, J, \2 l        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
; v2 y% A+ e& b: |) ~7 @9 W8 E        Machine.ExitCtrl :=ref(Leave);
- s  l: H0 v5 w. a$ b       
, Z! w! n0 B, c- ^, G% M$ J        BufName :=sprint("BF",Rows);
        Buf:=.MaterialFlow.Buffer.createObject(current,X_pos_init+D_From_To_Chart[Number_Of_Machine+1,i]-35,Y_pos_init+D_From_To_Chart[Number_Of_Machine+2,i]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
4 _% e% D+ h, A. c* e        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

end 数量不对 且后面两个for循环 赋值没有等号。。。

wudi

老师，我再问一下，哪里的end数量不对啊，我是新手