程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
  o9 ^+ j0 ~5 {8 Wis
$ ~# B) U$ s3 p7 v        i,j,Rows,Lines:integer;
4 C# U3 V/ h* t) f/ f% v9 A        MachineName,BufName:string;
0 n7 F+ t7 W% u& e1 O" @; `) Q        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
# ^# d9 r) r5 g; z% g8 i( [                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
( l6 p1 \( e2 {                        print "Yes";
+ a  \; j" @4 G* v8 Z, Y" w                when 32 then
' l5 E' W* f7 H                        print "No";
5 p! D$ B! K2 p, i/ v0 t                else
1 b: F; s: z1 W7 K+ d                        print "Cancel";
                end;
6 X& D& G! v: S7 t4 t. N        EventController.stop;
end;
' `* L* o' x  v' ~% \$ XPartsTable.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];
- k6 O' f. `' m- e# u( M                        end;
                else
, Y: S5 D# \7 l1 b3 _. z                        if j=i then
" \! y! c% _3 Q5 r* N2 x                                D_From_To_Chart[j,i]:=0;
- f. C5 u( m; y+ T6 V) r                        else
1 V2 P# s) Z% l0 g                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
' Y- E5 y% n$ S/ z6 W1 L1 G                                        EventController.stop;
* ?: `+ W0 L% E( I1 v0 R9 R                                end;
                        end;
& @0 k4 e' \6 h( t                end;
        next;
: B9 ]$ y7 r( c* ?& Qnext;
+ S8 E9 T4 |9 E2 r3 I
# d: e" T. R: L% i  j0 Iend;

    Lines :=0;
# D- t' N' W2 K, n2 x7 p* h9 R        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
. M* M3 O1 k/ x            for j:1 to Number_Of_Machine loop
) n& W7 H; _) S' I4 O7 r( N+ R/ g                    if W_From_To_Chart[j,Rows]>0 then
! d, e6 `1 R. w# A/ _1 G                            Lines :=Lines+1;
* I! D- q; ?* k) ^) X' C) M* t) _6 a                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
. x7 V$ U1 I) L0 N                        PartsTable[3,Lines]:=sprint("Parts");
" F; N, l( u& Z" t9 c- h5 Y                        PartsTable[5,Lines]:=Rows;
7 ]2 _* Z9 m' G! }  w9 C' s0 H                        PartsTable[6,Lines]:=j;
                end;
6 k' j/ Q+ t+ v2 `" w        next;
' c8 v! P8 n0 r9 D- c' A; \        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;
  Z+ z& X7 k$ F        Machine.ProcTime :=5;
: @& W( b$ S7 A3 L+ \  r        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
( U- ~9 r2 a1 Z" A        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]);
4 p) I& J3 J7 ]) a8 o* s1 x                 Buf.Name :=BufName;
6 d9 G* R5 @' ?6 w        Buf.Capacity :=5000;
% G) B6 \, a3 b2 Z        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
4 w* U# }! C" B$ a  J8 z

五五

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

wudi

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