程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
) a7 C3 q% B6 o. u7 A/ bis
; i; F' L4 u$ Z3 T5 ^3 w/ J: l        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
: a' P6 A1 [8 I- k5 R  l                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
9 z; L" H2 u5 H8 F- c& M$ _                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
' `. ~  C6 M6 O! O3 N3 O! M        EventController.stop;
2 Y$ b0 c$ k! N' ~. bend;
* ]2 E% ?, g, B0 OPartsTable.delete;
6 x3 Y. k4 y8 Nfor i:=1 to Number_Of_Machine loop
; g6 |* L6 w9 C% O/ n4 U/ c        for j:=1 to Number_Of_Machine loop
4 g8 q/ X5 S3 q                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];
. q( t4 G- U) `8 E( T- s% z# v                        end;
                else
' a' R8 l2 D0 ^2 \  _6 ^, q' e( S9 a$ o                        if j=i then
3 v! D6 n- i& e- k2 e                                D_From_To_Chart[j,i]:=0;
. H! p9 j/ f: x7 N5 g. T                        else
9 ~. }$ ~6 h3 {4 W/ Y; ~                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
: C$ H2 T* m! g# r& W; C, l                                        EventController.stop;
( [4 X" x3 y4 g) M+ N( E& O' K                                end;
                        end;
                end;
( t6 x  M. C' Y; C/ _. J+ y+ X3 z        next;
next;
6 J* |6 Q8 ?( g# V
end;
1 D3 t8 Z0 E  n1 x" s; a
+ {$ ]5 [3 V0 j4 [6 a& |' [    Lines :=0;
4 @: ^9 l# W( S# Q) V        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
# E+ a8 R. S& j9 |8 m        MachineSequence[2,i]:=Rows;
# h$ r4 Q' L: i/ |            for j:1 to Number_Of_Machine loop
4 h; M! j, Z1 l. K9 G                    if W_From_To_Chart[j,Rows]>0 then
3 Y9 u% ?% [' B* z6 T7 k                            Lines :=Lines+1;
, a* X6 U! y( s# F                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
5 I3 u$ }8 @6 \                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
( x0 q9 ~, e, _- N% U+ i8 O8 l                        PartsTable[5,Lines]:=Rows;
) b8 l  b  U, Z9 [% E6 C1 S8 S                        PartsTable[6,Lines]:=j;
* i1 D# Z% ]& R; i0 f2 V7 d                end;
        next;
4 z, W% F) B2 d" j. K; S        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;
6 m! j' t5 G' W7 r4 O+ @        Machine.ProcTime :=5;
& G* w# P& x0 n+ C5 h        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
7 q1 `$ P' `& ?0 V8 a2 y       
  T( f6 B. |/ H3 m+ h: m# o        BufName :=sprint("BF",Rows);
8 F- o0 m, d8 K4 {2 W8 w( c& G: H: _        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]);
! R) J" a' A" i# V, q- v; v; X                 Buf.Name :=BufName;
, T8 P1 b6 v( T3 Y        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
7 ?; G3 G+ |$ W/ Ynext;
8 P/ m- l/ n# z  s6 c' Mend;
. F& s( z% W  v' R" Y) h* [

五五

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

wudi

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