程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
) q8 ]% _5 x% [1 A0 ]4 N& u) ^is
; Z8 h- |' f) w4 t2 ]        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
4 o/ ?# j# k  a9 W1 W        if Number_Of_Machine/=D_From_To_Chart.YDim then
* G8 O, j# i! T% k' f$ c                inspect messageBox("Number Wrong...,",50,13)
& c* E. q/ d" s                when 16 then
, B0 z8 x) K: L/ H1 E: \                        print "Yes";
  R/ ~# Q$ u4 b# m7 K& {# x3 ?                when 32 then
. `2 \* O* y7 I) g5 ?/ L: O                        print "No";
                else
1 e  H* P1 ]. Z: }                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
9 l* Z4 Z. T9 c/ kfor 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];
                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
3 }& o) \8 P" f* W9 J                        else
1 y" a9 C% Z! x  P7 Z                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
+ w( k8 e  ]" o& z, N/ n                                        EventController.stop;
                                end;
5 a; n) B5 Z1 x1 P! ]                        end;
                end;
        next;
next;
0 X) a. n  {" t( O1 d! e) O1 C
end;

    Lines :=0;
9 L! [  \* W! Y4 o5 e        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
/ a( h# m& V$ k9 k        MachineSequence[2,i]:=Rows;
6 y. d0 K" H4 w, s4 O            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
* o* X9 U; [1 `$ C8 r  W                            Lines :=Lines+1;
9 A% F! F& \$ w) G( k3 u0 K                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
& t) y( [5 k* T3 W                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
4 W2 D3 j# c1 Z3 J                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
& [) Z" D" ?/ x+ C6 e8 z                        PartsTable[6,Lines]:=j;
                end;
        next;
$ Z, _) S8 X- S$ X6 V( {        MachineName :=sprint("M",Rows);
1 r# A* K# ]: _        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]);
* L' q  {6 y8 D' N/ E. Y- L/ g        Machine.Name :=MachineName;
8 {8 \# |4 a1 a9 s! P8 K5 i        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
+ n$ f2 e& B) [  Z8 V5 w        Machine.ExitCtrl :=ref(Leave);
, D& F$ ^; i+ `+ `+ b3 `6 _+ m       
8 ~2 b! ~: a. `, ^' B" M$ u5 q5 W3 Q        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]);
$ x. |+ ~0 k( y- g                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
# I3 V8 K; u' o+ I: \        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
- _4 l8 c4 j4 j! {& l# w6 b; h  aend;
7 a& F2 B/ w2 q$ V& i

五五

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

wudi

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