程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
) `6 ^7 l5 g) Jis
        i,j,Rows,Lines:integer;
# G. Z/ x. t" |        MachineName,BufName:string;
! H3 p- C4 p0 p) o! b$ ~' T        Machine,Buf:object;
do
1 A; E" D- ^" |) X% @- S  b        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
; [& J0 [5 W* x! G                when 16 then
7 i4 H1 Y, r3 _) Y                        print "Yes";
                when 32 then
                        print "No";
8 x, I9 I/ d; {, B0 F/ y  \                else
1 a9 d8 y  P! K1 [2 S! Y+ O' V                        print "Cancel";
                end;
% M8 N2 u( O# a% h        EventController.stop;
end;
0 {! \! l5 D: {& g9 E' b* U6 C6 rPartsTable.delete;
- f% n4 D7 x' n. D4 `. K/ O1 V6 wfor 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
, l) ]+ w, ]- R; [2 S5 B5 d  U8 N                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
+ w" B" F) _1 f                        end;
3 Z  T# u" r; Z                else
* _5 U4 N3 c1 L) x0 `                        if j=i then
; i& l0 m; H" U                                D_From_To_Chart[j,i]:=0;
' y/ G8 j7 N# h9 v, }2 M8 Z                        else
                                if D_From_To_Chart[j,i]<=0 then
1 Q" C& m! @4 K! X3 w                                        messageBox("distence<=0...,",50,13);
2 t6 |6 \. r, W9 T                                        EventController.stop;
; F! A2 E% D8 }; i) e1 D, X                                end;
: Y% q$ ]0 t9 n                        end;
                end;
        next;
3 X5 H7 Q4 N/ L' T% q, l+ _9 cnext;
% Z; q3 H: X" D) n$ N+ p' k
end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
9 y1 [% Z5 W8 ]        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
3 h$ ?) A9 i: G5 w9 n8 D        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
6 `  ?7 b: p. C0 ^; A- J                            Lines :=Lines+1;
% z" }; Y5 \% f4 a0 c2 h# s                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
! B9 C# u! \) a# x" i7 ]                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
, O; F: y% I/ j3 V9 f2 p+ A( D                end;
7 h8 B9 ?+ L& Q8 w+ \2 J4 B: N        next;
        MachineName :=sprint("M",Rows);
% g: [& L) V5 H% Z4 P        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]);
% Y; {: a0 R% P4 C4 x1 D) M        Machine.Name :=MachineName;
$ |* o) W$ W9 o0 q, P9 C        Machine.ProcTime :=5;
0 Y1 R, N1 V; j* I# h0 R5 A% j        Machine.label :=sprint("machine_",Rows);
5 y4 l1 b: p- }) _' V9 i' z        Machine.ExitCtrl :=ref(Leave);
       
        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]);
                Buf.Name :=BufName;
4 V6 ]- s: T2 n' r8 I        Buf.Capacity :=5000;
& D2 i; I# L( Q' d# R1 N        Buf.ProcTime :=0;
) W$ X/ j8 W. B5 H6 H+ |3 }, @. m        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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