程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
/ I" [) {# D4 Kis
% F, d! S% n! Q2 c2 t7 n5 t        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
6 d9 X5 V0 C( H9 ado
' W0 H4 L2 I% U$ [1 f) _+ C) J        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
* j3 t, m+ a$ J* ~- }2 L                        print "Yes";
, D# U& @, W% H2 [                when 32 then
0 A3 D5 i" I+ o5 O+ j- S  y, }0 y4 }                        print "No";
                else
; K/ ~7 c5 q' R2 y( v+ Q( ^6 f( E6 E                        print "Cancel";
4 z- Q5 s2 d6 V  ]) B; _                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
) S' Z. R# j* [3 `4 D        for j:=1 to Number_Of_Machine loop
+ L+ I  _2 q% O8 F8 x9 x3 R                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
* y6 ]- }1 p! N# c( P8 d                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
* J5 o; h2 g) S& @                else
! t% i* S1 J4 P# P& I+ u                        if j=i then
, b7 O* m4 i- T                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
0 Z; I  b# y7 L1 N4 C, h6 y& B! K+ ^                end;
- r: M) Y2 ?% k( p2 }  _9 _        next;
. M, y0 a" p1 m# R* z+ Enext;

/ A4 ^" s3 Z# b  G! P, Qend;
/ q. b$ ~% B% L9 f1 m' n/ a- f
. X2 [1 w1 F8 E( S    Lines :=0;
9 y: ]7 m& a6 k/ y' Z        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
- D: P6 O; B, |6 {        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
  p! t$ c9 N) F2 _                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
+ x" o) l. U4 @                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
' }* m% }! X/ T: e2 n* B                        PartsTable[6,Lines]:=j;
                end;
7 k/ f' G  v4 k) \$ S        next;
        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]);
        Machine.Name :=MachineName;
$ E' X! ]1 D1 k  G        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
2 S5 j+ K" w" S/ Y3 O, [        Machine.ExitCtrl :=ref(Leave);
# {# P! w8 {, n# w& P+ `       
- g( I' u6 ^% P8 V' c$ A% L        BufName :=sprint("BF",Rows);
* P! B. ]; h$ d        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]);
( e* _" I6 e5 T4 E6 \: ?0 ], ?                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
9 g7 j1 M3 _5 \8 f$ E; m* g# R        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
. o# I& M: o% r/ Y9 Q& }3 ^

五五

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

wudi

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