程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
. O& O7 q: P! Y6 i- W9 N& I- sis
& b- v2 s& a+ V, _( |/ D        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
# \6 p; N( V6 h. L8 X# G- l                        print "Yes";
                when 32 then
                        print "No";
/ n' V/ t1 h! A2 n                else
                        print "Cancel";
                end;
1 s2 k! @$ n) i6 r6 V( F  J        EventController.stop;
end;
PartsTable.delete;
  Z# E8 p. m& L) s7 ~9 n. Cfor i:=1 to Number_Of_Machine loop
9 E( i6 L+ G, S9 c* \3 S5 D$ y        for j:=1 to Number_Of_Machine loop
, d3 e$ U+ j& D                if j<i then
  ]6 @  Q& _6 h$ }                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
+ ^# w* v  M& }* m4 o  ]# D- S                        end;
2 n1 O# J  F, K- Z; ]                else
: j. l; N4 j- I8 }( y) B* `! _                        if j=i then
9 |/ X( S# x" ~                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
/ Y2 p; ?2 k' \% A: _                                        messageBox("distence<=0...,",50,13);
5 A8 y! m; d( G* H$ V; S( r+ s                                        EventController.stop;
                                end;
: y7 h, H4 A0 t; Q% {5 L                        end;
* ~( t; O1 l, A0 O+ b2 N/ b) X                end;
        next;
next;
5 l6 Z, i7 z- F1 J6 d8 p8 _
end;

    Lines :=0;
) Q" T* j/ k( `/ a. |, G% E; W2 a        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
+ k! }# z) v; s3 w7 U                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
0 M+ X% i3 R% h* L6 U                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
) w4 l" g9 B( d$ |9 M) l                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
7 F- M$ V) K% F  T4 y        next;
/ g1 A& k9 f7 o  s4 b& P! B        MachineName :=sprint("M",Rows);
: |4 g) L: x1 R, F$ c/ W        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;
        Machine.label :=sprint("machine_",Rows);
" i8 J. x4 C% z/ b        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
+ i/ N: X" P$ c& s: p9 ~        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;
        Buf.Capacity :=5000;
5 P+ A: ^+ b) O1 z) [        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
' |/ T# o7 P; E$ U

五五

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

wudi

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