程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
7 K1 r( ?1 G+ y. zis
" v* Z- C/ E* ?, w6 I        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        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";
0 z" }, y/ L0 m) x! J                else
                        print "Cancel";
                end;
( i4 \6 |+ V4 E/ ~* b        EventController.stop;
end;
* D* a$ M6 S1 j0 \6 c' V5 sPartsTable.delete;
for i:=1 to Number_Of_Machine loop
* q: ?2 Z( o4 B3 E% Y) t        for j:=1 to Number_Of_Machine loop
! b" d& _2 g) H# T4 T                if j<i then
" s/ i/ [& G0 V! C. y                        if D_From_To_Chart[j,i]<=0 then
6 z( C8 J( P- l                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
: `9 i# \. b& N. }                        end;
                else
7 R0 P  t/ ~1 L' r8 i; V                        if j=i then
! K3 I, k. ]  k8 k/ Q3 Y, w                                D_From_To_Chart[j,i]:=0;
6 ^" r1 }0 s) f* T% J. D  q                        else
                                if D_From_To_Chart[j,i]<=0 then
/ M2 L5 [+ O6 e# W! d4 T                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
2 f& U, u! m8 K& E                                end;
5 O8 A* u/ {# {; t8 D                        end;
* E6 h* V; t: G2 a& z! o                end;
        next;
next;

end;

2 {: q  r% c8 ^7 [$ o$ C* d0 |    Lines :=0;
" M# y% ^  Q0 a' I- }  n" R        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
* q3 C2 N' Z1 K/ B        MachineSequence[2,i]:=Rows;
, |; c; S7 o4 x" {8 R+ z2 z            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
" Z- v: C/ _7 V6 @                            Lines :=Lines+1;
) T9 [( G5 ]+ h  U$ x# p                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
3 ]0 X0 T1 N$ u                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
& Z% A4 J1 E* F5 e) L; Q) ~8 d) G                        PartsTable[3,Lines]:=sprint("Parts");
# }3 h% ^/ w  E- j3 ~- }. {                        PartsTable[5,Lines]:=Rows;
% e( v- z4 Q3 Q$ z! @* J                        PartsTable[6,Lines]:=j;
                end;
& G2 ^, X- K/ s7 O        next;
8 `& j  L) I: ?        MachineName :=sprint("M",Rows);
% U1 m5 U. c4 S1 I- v& T        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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
! a1 Z+ C: \0 v( Z) J5 _% D  T6 Q        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
: m+ c$ b7 Q: C* ~' y7 Z       
" {- r8 b/ j! a+ f% d        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]);
; d9 N7 J, s' v                 Buf.Name :=BufName;
+ t+ F4 X8 m/ `  m* t        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
) W( n* s2 l5 j7 b, _/ E& P  {

五五

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

wudi

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