程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
; }) G2 t0 w2 z0 O/ u& ]- B        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
3 k% y& N1 }1 i. f6 |) `& U. k/ p: N        Machine,Buf:object;
do
/ X. m+ P" \: v9 U% F0 u' N        if Number_Of_Machine/=D_From_To_Chart.YDim then
' x& ^/ q4 }4 Z                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
5 v, U* M+ R- E7 x9 {- c                        print "Cancel";
) `* O( i: D( O; P8 a                end;
( m% A2 i: o5 i# x& V        EventController.stop;
end;
; x2 v  A# @, x- VPartsTable.delete;
for i:=1 to Number_Of_Machine loop
/ y3 H. t: c& }; r7 i8 x        for j:=1 to Number_Of_Machine loop
& S6 L* C7 U# q4 J: a                if j<i then
! ^8 Z& E5 k1 `6 L                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
; _: p7 A( _2 z2 A& }                else
" T5 F0 \$ x9 U! z0 s& }. J                        if j=i then
                                D_From_To_Chart[j,i]:=0;
( L  I! ?1 H' g! D                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
8 R# e3 u% c+ L# [                                        EventController.stop;
# @% c' T) j4 b! v4 B                                end;
                        end;
# @& |4 A3 M  C% W4 ?                end;
        next;
% x" X$ A! n' U- V" Z* k# [next;

end;
0 m0 K; c  v  Y" w6 I4 ^% B' u6 N
    Lines :=0;
        for i:1 to Number_Of_Machine loop
' X! ]. ~3 u8 i/ z        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
9 O* t$ u8 T( }0 a% J; j        MachineSequence[2,i]:=Rows;
) v- H* B4 d, r# {5 x' j            for j:1 to Number_Of_Machine loop
# X* d. h: v$ t: H  q0 o: p                    if W_From_To_Chart[j,Rows]>0 then
( u; E( g5 b, Y: |- Y# b                            Lines :=Lines+1;
9 S: n! G0 _# {7 x0 Q4 ?5 A+ Z2 x- f                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
: a+ C& N6 t& B4 _/ z. l                        PartsTable[3,Lines]:=sprint("Parts");
; y, V2 K: X) F) O% j: \                        PartsTable[5,Lines]:=Rows;
. }  @4 S& A+ k                        PartsTable[6,Lines]:=j;
                end;
        next;
0 n8 A/ m; x: U; r' _        MachineName :=sprint("M",Rows);
% `% ]5 G% L9 b. l! v        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]);
0 H0 I. K8 ?: d# x$ u        Machine.Name :=MachineName;
5 \/ G3 H2 Z' _, G* d        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
# y5 ]4 l9 b4 v9 l/ ?" C       
4 D/ j% P9 N3 r% O/ u2 {        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]);
: `8 |" w; X" S; |( q9 r                 Buf.Name :=BufName;
8 J  w1 I* ~4 H. o3 t! }        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
/ G* J8 }; {3 y' Hnext;
4 W2 L8 |; s, z. U' |' gend;

五五

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

wudi

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