程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
% l' L) B$ O3 F7 }4 F' v9 }is
  q( N; d& k! \6 s/ v        i,j,Rows,Lines:integer;
" F/ M6 G. I; k6 p        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
1 ^2 U+ Z* E( q8 G0 s4 }                        print "Yes";
                when 32 then
                        print "No";
                else
# v3 Z) M! d8 `! c( R. X; S                        print "Cancel";
                end;
/ O- D3 D+ z9 m        EventController.stop;
end;
# P0 V% P; T/ K2 l# E2 fPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
0 ^; O" Y$ ]+ P4 a, |/ |' p                        end;
7 H/ [# _& c1 R7 ]0 l, x                else
                        if j=i then
1 w2 {- Z% c6 J( H- h1 D                                D_From_To_Chart[j,i]:=0;
                        else
4 |% o9 U: k/ O) e0 P4 f                                if D_From_To_Chart[j,i]<=0 then
/ @' |) _! T$ g' F                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
, n) G; F% h; U3 }" K                        end;
5 U2 G. j- [1 C% K                end;
        next;
next;
) c7 _+ D# S( Q) b, m) s, X- X
3 `1 ~) `2 t' q5 H' Wend;
! C! ^9 ~; M, S5 k6 V. J! ]2 Z
0 S6 |  _# p; h2 F3 p7 Z    Lines :=0;
7 r6 g- J2 C' t9 k7 _2 {        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
                    if W_From_To_Chart[j,Rows]>0 then
, k7 @7 H* @' A  P                            Lines :=Lines+1;
# w  x5 L0 Z$ |$ i" A                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
/ |5 W% J/ W7 S9 i5 Y: G1 D                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
8 x* C2 o5 \8 \$ ?; Z( d" \+ Z                        PartsTable[3,Lines]:=sprint("Parts");
; [; [* I' [9 z6 A. ?7 z3 P                        PartsTable[5,Lines]:=Rows;
% V, ^6 c9 D' y: G                        PartsTable[6,Lines]:=j;
                end;
+ |8 }# ^9 m" a) T. V. t! _  r        next;
! P4 O6 Y: x" z: K" c, ~        MachineName :=sprint("M",Rows);
        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]);
! J9 o! Y1 W% R+ T$ I* Y, G        Machine.Name :=MachineName;
) I2 j( X+ I' u/ U8 e9 U6 g        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
6 s3 o  \8 _8 E2 m7 x) H        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]);
; R& z& e- k; ?; r1 K9 ^2 t8 s9 C                 Buf.Name :=BufName;
- t! ]% O9 j9 I  O        Buf.Capacity :=5000;
; I( P  f  E7 P, A/ ~        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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