程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
0 k" x- ~8 O& N7 p0 d7 v( cis
: ]* `+ ~- |$ {! x% |9 U        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
2 c4 F( h0 _% h* e0 x! T3 Ado
: o1 l4 E/ V- t% y" U6 D% H& l        if Number_Of_Machine/=D_From_To_Chart.YDim then
" [- r2 I. ~& P$ L. Q" O1 {1 z) n1 N, l                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
% p) x$ }9 \7 P: \                        print "Yes";
                when 32 then
                        print "No";
9 D7 ~7 @4 c  b1 V9 k5 K+ W                else
( i8 G; j" M5 k. G& F4 }6 B. d2 }  q                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
$ E1 f( w0 ?; m$ X& m9 y& q0 m                if j<i then
' Q1 t/ H+ o7 _                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
) ?0 E  Y; H1 a% {% @0 r* N3 a                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
, {% [8 n4 M5 _1 _3 I                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
$ D) a8 c+ F6 k" ]5 t+ g                                        EventController.stop;
                                end;
                        end;
                end;
        next;
8 F/ Y9 I! W# n# w8 A+ }# Hnext;

; Y, y0 [3 N  ~. Fend;
: E, J% I" m) Q0 l; m8 n# }% h
1 S' ?% i7 @6 q& X    Lines :=0;
0 z3 S; {6 ~0 c* H        for i:1 to Number_Of_Machine loop
9 v  w, x4 O3 \8 u6 A        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
. p2 N% ]  k- T( C' Z        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
" g6 V) d6 ^7 v! I$ a- B( F                        PartsTable[3,Lines]:=sprint("Parts");
; h/ F: a2 x9 R3 d2 B# n                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
2 P2 U+ |7 X3 X3 I" `  \: ~                end;
7 J# g/ S+ G4 t7 y        next;
$ D) I$ A# W* k! w- S# X3 D        MachineName :=sprint("M",Rows);
7 t6 z4 g( H! |9 ?# h        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]);
        Machine.Name :=MachineName;
7 W, q, ~- n* r        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
- M) ~3 @8 Y5 i/ C2 V: {        Machine.ExitCtrl :=ref(Leave);
2 _0 `  F8 h3 s% U, Q) J  U) W% [       
        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;
' a" t0 {: z6 [' H        Buf.Capacity :=5000;
2 W  z6 W/ u" Q+ w. ^8 X        Buf.ProcTime :=0;
4 s1 @8 L  T6 y! g) P0 J        .MaterialFlow.Connector.connect(Buf,Machine);
4 N' l/ f3 y8 u! n4 o$ pnext;
end;
" t7 d( _  [- B  s+ O  X

五五

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

wudi

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