程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
5 G. i: c2 O, R5 G! Ois
. ^0 J1 M/ `: P6 p        i,j,Rows,Lines:integer;
1 O$ h6 ]6 n" Z        MachineName,BufName:string;
        Machine,Buf:object;
5 }3 l3 E4 N. hdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
1 }! o$ c( a, q6 A                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
* W3 l9 q: E3 N. U# d                end;
        EventController.stop;
end;
' J, |& D6 d2 M0 rPartsTable.delete;
for i:=1 to Number_Of_Machine loop
3 c9 j# D2 Y1 ]% |        for j:=1 to Number_Of_Machine loop
) t; [. w8 W1 `6 U  V- i                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
% l2 [9 P' ?/ X* X) O, _                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
- t# |' f( W7 R& T' N                                        messageBox("distence<=0...,",50,13);
) T8 p' B: m2 h# p5 b9 X( Y, [                                        EventController.stop;
$ f& l8 L# _- z6 D$ B                                end;
7 L) a7 l; }7 l, H- o/ x+ {0 P, ?                        end;
                end;
        next;
! ?: m0 ~0 ?/ pnext;
' Z- o1 J+ W' r3 u
' Z7 i- `  R# a. [: f  x, D+ wend;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
$ I& X0 ~9 B9 h7 B2 r        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
6 N1 y- h' b' C! C- Z                    if W_From_To_Chart[j,Rows]>0 then
* I* L" [) K! M* ]7 i                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
: o; z- S' D* ~5 N. m                        PartsTable[3,Lines]:=sprint("Parts");
% E1 z: N2 D. E. w$ ]7 w                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
- w  R4 X& R7 h) x7 [+ p( q        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]);
$ S5 a) Y8 [3 J# W        Machine.Name :=MachineName;
$ K- `) }! M& C* {) J$ R6 r- x        Machine.ProcTime :=5;
" e; C1 n& V  O( g# U- D        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
: N" u- @2 U9 C: z6 e" h        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]);
) B. ?( a* Y  c/ m& @, Y' ]# {; k                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
+ K; s! V; G5 s/ ^" L9 s9 M' `3 ~' b4 s        Buf.ProcTime :=0;
; q9 y0 O3 v, f/ u' T' T, Q        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
1 V% P% _. V' O) s" o9 L) O; Z" Y8 B

五五

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

wudi

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