程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
/ s5 I$ O3 p6 B. a; L        MachineName,BufName:string;
        Machine,Buf:object;
do
- l' d+ _3 N6 p1 U' x" x* K+ X* m        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
; Z% B* }1 m/ o0 U8 l, g" Vend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
1 Q/ o" C! Y: Z2 W" h3 W+ [) E        for j:=1 to Number_Of_Machine loop
8 d9 j1 X/ b! B' w) F6 a! `0 Q                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
  u1 _0 [: w: v  Z                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
+ C) m: }( P$ V                                if D_From_To_Chart[j,i]<=0 then
0 U0 Q3 l& c$ g                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
) b6 r5 o! Y3 i5 n* o8 m0 ~                                end;
                        end;
                end;
        next;
next;
" E5 ~. \+ Q3 ^' C% h( D+ X0 O: j
end;
! S/ \; C, U2 c+ t' W
    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
! X3 T( a: @7 q! h3 [  L2 w8 [: p        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
" |. u1 }# K+ R  y                    if W_From_To_Chart[j,Rows]>0 then
' h$ X' b. J% O# d0 D+ W; j                            Lines :=Lines+1;
1 m5 i) @  I$ `& E# }                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
* O3 r& z+ s) h) k                        PartsTable[6,Lines]:=j;
                end;
. ?4 I  P& {: \) Y" {8 m        next;
& `# [9 n) H0 m4 R        MachineName :=sprint("M",Rows);
9 j. F" [) \( X# Y( X" Q8 O& R        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]);
8 G# m" C1 q2 ]- R- c        Machine.Name :=MachineName;
4 m$ T+ O0 c8 ~. v' z+ N. t. _        Machine.ProcTime :=5;
2 B2 h% x' l* D  r        Machine.label :=sprint("machine_",Rows);
4 B" T6 K( V. o% f: V' q3 l        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
+ ~0 i8 N' h  K3 t3 j, Z. |2 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]);
                Buf.Name :=BufName;
, I, }0 d2 ~: S9 m* Y        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
6 [5 j9 u- Q9 j& Y1 ?7 s& C        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
. g3 b+ D9 W  g; t/ u& m

五五

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

wudi

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