程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
- [* P. r3 Q! C9 z- O        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
* B% U! a3 U/ o* g. y: D1 g        Machine,Buf:object;
& |. z7 J! v8 i( ]( Cdo
3 j0 u+ }+ y8 o6 L7 p        if Number_Of_Machine/=D_From_To_Chart.YDim then
: z( c* p+ b0 V) D2 ^4 d                inspect messageBox("Number Wrong...,",50,13)
" G/ g) t! k" R2 F! P! n                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
, Z+ R% ?/ h4 y" j                end;
% s" z0 ?4 E" ~        EventController.stop;
end;
PartsTable.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];
                        end;
                else
                        if j=i then
. |8 b; {- s  W% y7 K) w' D  V                                D_From_To_Chart[j,i]:=0;
  m- u2 L' R0 n9 W( k                        else
. c( f# ]& o: t( ~0 N- L# t                                if D_From_To_Chart[j,i]<=0 then
! d$ ?  z9 |# @7 Q9 U                                        messageBox("distence<=0...,",50,13);
. o$ C* ^& }0 R/ ~) Y8 ]                                        EventController.stop;
) K6 F+ A; y/ M                                end;
                        end;
' T1 b) }* |# ^, p( b                end;
        next;
" `% Y4 z4 I9 f4 ^) d9 o7 Mnext;

end;
, O+ [5 J" K$ i$ a6 |- d
    Lines :=0;
$ a/ m7 p- l7 w9 ^. E$ k        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
4 _3 c3 C( h3 d# l6 ^$ r4 e0 q            for j:1 to Number_Of_Machine loop
# W- g$ Y5 [$ K                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
; [; j" q* G: h+ P                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
1 F) v7 M! w1 H  K                        PartsTable[3,Lines]:=sprint("Parts");
' F2 }! L* b0 V( Q                        PartsTable[5,Lines]:=Rows;
& l5 g( H+ Q! F2 T6 |  u  [                        PartsTable[6,Lines]:=j;
                end;
4 `% y8 h9 Z0 j. ~        next;
        MachineName :=sprint("M",Rows);
9 s0 ~$ v0 V: t1 w& 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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
2 ?% c9 e- H5 v+ X4 r+ U        Machine.ExitCtrl :=ref(Leave);
+ t6 \- q4 q( M9 G. y' b2 N       
        BufName :=sprint("BF",Rows);
. {: a0 E6 `  o$ w: A        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]);
8 u% d! Q; \# S: I6 H( ~                 Buf.Name :=BufName;
9 ~* a4 T) [. y. v6 S: n        Buf.Capacity :=5000;
$ s; ^9 Y' e4 B2 o& X0 |% G$ U        Buf.ProcTime :=0;
) }  e! q) `% X! E) K) x        .MaterialFlow.Connector.connect(Buf,Machine);
) Q; q. l# v0 R+ I9 Fnext;
' W5 O2 G* ]: _# Z) c1 P7 j3 d+ h  fend;
; S$ F1 {# T6 A! |

五五

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

wudi

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