程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
4 S0 ^' T" T" _% U% F: D        i,j,Rows,Lines:integer;
0 G& y, m3 e3 _' T" w        MachineName,BufName:string;
0 F9 G0 E+ d# M        Machine,Buf:object;
! k5 b, g% P, Z  G: \9 E6 L/ qdo
0 h, b& d. |/ ?        if Number_Of_Machine/=D_From_To_Chart.YDim then
. k( d* h" O/ K5 Z                inspect messageBox("Number Wrong...,",50,13)
) T$ |7 s+ I, w* ~& H- x                when 16 then
1 q4 \! i& }" ?8 v                        print "Yes";
2 [( _( ^7 H6 X* y3 a$ U                when 32 then
+ M' r( ^% \& \                        print "No";
                else
6 b+ T7 b& P# K9 n0 M6 ]                        print "Cancel";
                end;
3 T; s' y/ A* @$ E$ w5 c0 d5 |  B; p        EventController.stop;
end;
PartsTable.delete;
, n1 l' Z3 d* e6 bfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
+ X. t% b& y8 \* r* R4 T( e) N$ Q                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
! I: c4 p3 c* ~- @                        end;
% @+ x0 D" i; E                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
! o: s* S" O* K# i                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
8 F+ l, B# `9 R$ N% _# u1 Y2 A* w                                end;
                        end;
7 Y- A& ^8 X% ^! T* N" s- L                end;
+ j* g: T; s7 \3 _4 G  n        next;
2 A; u7 F2 J! v4 g; J1 Wnext;
3 Q0 _6 b8 [( [( E! ^) ~5 ]) H
/ _5 c' N( A7 V3 Send;

% z5 ?% s. O/ |2 N2 P    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
: O0 F+ K4 u/ J  t' w! P; F        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
5 Z2 u+ A8 {1 C0 W7 p& b                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
/ N2 ?# t6 G" e3 a7 ~  f                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
3 k( m3 g, ]& K* F" W/ `        MachineName :=sprint("M",Rows);
, @8 G* K5 H5 M  x        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]);
: e. X) n5 W% r. x; u" h        Machine.Name :=MachineName;
; Q& }! {8 t6 ?3 p! `. u& ]* H        Machine.ProcTime :=5;
! b: x, q& K7 k8 |; D+ L- W' o        Machine.label :=sprint("machine_",Rows);
/ i6 D, o+ w% J/ j9 v  P! Y, {        Machine.ExitCtrl :=ref(Leave);
2 q8 }( T, x- V! d       
' R9 j4 M  |5 f" I0 {        BufName :=sprint("BF",Rows);
/ h4 F1 W. @( z        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]);
4 E8 i: F7 `+ z' R8 n& {                 Buf.Name :=BufName;
: F$ O4 O# ^* a( g" `0 b1 ~  `        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
9 U" R+ O+ ~/ m) a7 L+ B- lend;
' s" x1 N: J+ O# [2 i

五五

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

wudi

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