程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
; N- Q( H& @6 V* t2 ]is
        i,j,Rows,Lines:integer;
) v2 k: x, X3 u9 j- ?        MachineName,BufName:string;
$ M: p8 B  S" J+ r! z* A: A        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
. R8 ?+ g5 a; Z  r                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
" f2 |! J# t( E6 {& d                        print "Yes";
. v# h( o( f' ?0 J                when 32 then
" J: J) `$ u/ X                        print "No";
                else
$ f! ]: Y# K  Q$ j8 H                        print "Cancel";
% e- T8 Q0 o- n$ A- ~1 f" z                end;
9 V1 W- z2 r1 V- D, p( ?        EventController.stop;
% ]: C6 C6 O  e- o6 mend;
. V) P; e$ ~. o; U0 zPartsTable.delete;
for i:=1 to Number_Of_Machine loop
( S  U" c! @$ u8 C        for j:=1 to Number_Of_Machine loop
                if j<i then
" Y: _1 |/ G$ u3 `& @  P; s; R                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
9 \% T. y, w* W4 M( X1 D                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
9 F" s7 S! r8 k! ]3 |7 I                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
) W8 v9 H1 g  X+ U7 [                                end;
                        end;
                end;
+ ~# K# z. L7 t9 p# j        next;
next;
& V5 y6 a+ B8 l  s8 p
8 V* ^* H7 ?( T7 dend;

% w! s# j6 q$ R+ m5 d* R$ p    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
, g& k5 ~- D! j% y! M        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
( o& a: t8 O% l                    if W_From_To_Chart[j,Rows]>0 then
* W5 D4 U2 R% v3 i% d  H, G2 o4 ~4 a                            Lines :=Lines+1;
2 l: n( x, p9 X- ~" t                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
" y4 @5 \) G9 }2 S                        PartsTable[3,Lines]:=sprint("Parts");
) a) e" [- r' |% C& \/ V- L                        PartsTable[5,Lines]:=Rows;
' W& H/ {- @* E1 x/ @/ W* ~1 i                        PartsTable[6,Lines]:=j;
                end;
        next;
        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]);
9 \! Q) n; f0 z$ e, s& s5 k7 o3 O) X        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
7 s( a. z+ u5 M: i        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
) C# C* C/ v' P8 T        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 r- U) ?2 a$ Q" t3 a                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
4 \! W6 x  o: {* {2 A( H        .MaterialFlow.Connector.connect(Buf,Machine);
( k: M5 [; d& }7 k5 vnext;
  |+ X6 p+ ^2 m* ~9 Rend;
+ j& Y2 P  z; v

五五

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

wudi

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