程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
# X& t0 C# D( S! U. bis
; i% g, R- U9 Q" [+ ^4 N! {. F        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
# R+ E/ C2 g' r, O+ e/ S8 S3 qdo
3 B/ c/ z  g6 m4 Q2 m+ C        if Number_Of_Machine/=D_From_To_Chart.YDim then
6 ~! Y& @5 u* n                inspect messageBox("Number Wrong...,",50,13)
6 J/ n- v3 S( o- c. y                when 16 then
. W& B( C8 X2 f, x7 k! Y                        print "Yes";
5 e* X1 a* }- Y1 i0 P                when 32 then
! Z! B1 S5 B5 i$ V8 I: E! ~                        print "No";
) _6 U0 R, Z9 N: P. y! O                else
                        print "Cancel";
9 k3 O& m3 o6 ~% f; I                end;
. E5 j. @& R' S        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
* ]9 Y: Q# j9 V  b        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];
                        end;
                else
4 |; t8 M& R, d- Z/ u5 P# U                        if j=i then
$ g9 U, }- y" x4 Z                                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;
8 K) [3 C& Z  T5 u                end;
        next;
2 O# \, S( n- B: p  l3 qnext;
: |& z. S  A  l* H2 l+ R
5 J: q, [9 n: eend;
7 a6 @: K* D& M' [' c! x
    Lines :=0;
        for i:1 to Number_Of_Machine loop
" |6 `! d9 d5 K/ u0 d& n        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
  c; X; y' C8 `! _* W1 w1 k        MachineSequence[2,i]:=Rows;
3 _$ C# e/ h" O- Q' `, t4 `% a            for j:1 to Number_Of_Machine loop
, ]3 [/ J9 Z9 W. G& _                    if W_From_To_Chart[j,Rows]>0 then
; p  a7 J8 S7 m2 F( H3 T                            Lines :=Lines+1;
0 q' z* Y" M+ q4 d- L                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
1 ^8 V1 g6 Y) w9 |3 y4 K                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
6 v3 B6 c% ?5 H) i6 I. {9 a                        PartsTable[6,Lines]:=j;
7 M1 Y0 b/ `) z1 F5 ?                end;
        next;
        MachineName :=sprint("M",Rows);
( x6 A7 L' N+ w' I4 `. ?5 [        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;
) M" Z4 r) E1 _$ Y3 ~; A9 Z        Machine.ProcTime :=5;
' V* t1 Z2 `0 }' Y' R" O0 y        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
5 U/ L  M9 [9 Z! F       
" l+ x8 z  o" ]1 v: I) Z4 e, L& {        BufName :=sprint("BF",Rows);
' M# ]9 k5 i/ X) p        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]);
                Buf.Name :=BufName;
' g5 p; J- x$ ?; a, n$ R. G% k        Buf.Capacity :=5000;
7 c" h7 Y* |! ]4 E3 z        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
' Z( L) p# P6 h$ ]" I1 O; Oend;
0 a/ s& W, f; \. k$ B) k9 E. r4 B# z

五五

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

wudi

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