程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
/ Q- T* Q, e" Pis
        i,j,Rows,Lines:integer;
9 d4 A3 J- x. m        MachineName,BufName:string;
        Machine,Buf:object;
do
! Z% _. ^* M& s, s        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
! M& F& N5 A: G8 [2 C; x1 k                when 16 then
( x3 d- a% t9 `! e( R                        print "Yes";
' T* A0 \- W5 A7 t2 \                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
8 k$ M- G% i5 C- U4 F        EventController.stop;
) F& I& E5 w8 g1 a  Vend;
PartsTable.delete;
$ a! f0 A" j9 T) C+ _for i:=1 to Number_Of_Machine loop
- [) ~+ {/ r4 y        for j:=1 to Number_Of_Machine loop
                if j<i then
: L0 w$ p, v3 i, K* z                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
7 P& ]  V0 {" c3 Y; F1 S3 @                        else
                                if D_From_To_Chart[j,i]<=0 then
: O6 P9 ~  O/ s6 @. x                                        messageBox("distence<=0...,",50,13);
" s6 c5 l( r' w& q. b2 W                                        EventController.stop;
                                end;
1 v( D3 D: Z- {1 w5 m. V: {& w; R                        end;
( r; {  X' p) M; }8 \  R& J5 D3 z# B& U                end;
        next;
next;
9 ^7 Y( Q6 ?  u. `5 _. j" S
( m7 q" P$ x! I0 g  Z6 Hend;
( a) ]; }& Z7 n. }; q0 F1 ~8 q
% `# m' t" H. v    Lines :=0;
        for i:1 to Number_Of_Machine loop
/ R: k( ^  I3 ]- Q' x; N        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
0 O* R8 }  E: \' }) ^                    if W_From_To_Chart[j,Rows]>0 then
2 w1 }) G3 g' U  u                            Lines :=Lines+1;
3 U9 G; q' Y* `2 B5 C                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
- d: `5 F& @) E                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
5 M% E5 ]6 h/ _' d$ s; W                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
) {) K5 ^& r6 V' v1 w                        PartsTable[6,Lines]:=j;
                end;
        next;
% \' g$ c- f4 I0 J. U" R0 d        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]);
) W$ x$ I/ {8 _( c        Machine.Name :=MachineName;
( n+ Z+ G8 N4 F4 m# t        Machine.ProcTime :=5;
+ B4 O" Q7 G& d) n6 {9 z; L        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
7 K$ W. G# T+ J        BufName :=sprint("BF",Rows);
" q5 Q' b& a# O# d6 `, a: z        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;
, U" o) I! m6 u; r7 e        Buf.ProcTime :=0;
, M% a( t8 L% b8 J4 B        .MaterialFlow.Connector.connect(Buf,Machine);
' ?0 s' B7 B1 f8 Z; h) {+ E, tnext;
6 N! ]# Z5 q, ]5 Fend;

五五

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

wudi

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