程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
& z+ z! W+ Z, ]$ e/ j% ]& D        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
% j6 ~+ N0 B0 G6 c% N4 l0 Z                        print "Cancel";
: _) i' B2 c- C: j7 j                end;
; |4 V0 u& U2 J" b1 j        EventController.stop;
end;
# k7 q4 R3 M/ }$ ?5 J' }& lPartsTable.delete;
/ _% A0 ?% o8 z$ qfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
9 E0 c  E5 i% Y2 l. x" w  J& L                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];
# M* p1 Z+ w; I) k; J7 F3 h                        end;
4 U; h  I4 s& a! Y% f                else
0 k5 h- V3 ]; X3 e8 O$ o% U9 V                        if j=i then
                                D_From_To_Chart[j,i]:=0;
) i) D/ L( j2 l1 H6 l3 N  g                        else
- }7 _$ O/ i8 V. W                                if D_From_To_Chart[j,i]<=0 then
: d: T& g/ H/ N! x( c& c7 A) |$ i                                        messageBox("distence<=0...,",50,13);
$ ]! G  |* x, l# l- W) X: |% h                                        EventController.stop;
                                end;
  V; U" X7 P; M1 o% w                        end;
6 b0 }! n0 L! Y8 P+ y& G& \                end;
        next;
" \# q2 b8 v- c& Hnext;

end;

" b/ i2 @; y. V) _    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
( \" u! i# T- D; w1 `            for j:1 to Number_Of_Machine loop
: Z4 N; s/ F2 d7 ~                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
! |" p$ W+ ]- n/ u4 w                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
1 ^- z3 M- m0 r                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
3 ?8 O* F" Y0 e' L+ t/ X3 m+ U                        PartsTable[6,Lines]:=j;
+ _: Q9 X- d& I* [$ Y& r                end;
        next;
        MachineName :=sprint("M",Rows);
$ @1 o! @5 R' w, J2 u        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;
        Machine.ProcTime :=5;
; [) F- w: p. E$ E! u        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
6 `, ?8 f& Y9 Y& S1 _       
+ w" M- k) h6 w5 u        BufName :=sprint("BF",Rows);
( k) o- S+ V2 L& [, R0 t        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]);
6 T6 w6 w' {1 c8 b/ J                 Buf.Name :=BufName;
' S: M( E5 J6 m; H        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
- t4 k1 B/ D: y0 [" G9 Z7 Z0 J$ }        .MaterialFlow.Connector.connect(Buf,Machine);
next;
, D1 \; J0 N, Q3 Hend;
) H; Y: c' F0 v8 _; }# M0 Y

五五

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

wudi

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