程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
+ B8 j6 O- d; I  s$ }1 D' p5 fis
& N7 k9 H# v" ^1 q% a; Z2 ~$ J: j        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
9 q' u  ^/ N$ u        Machine,Buf:object;
do
5 ?4 `! r' v2 F        if Number_Of_Machine/=D_From_To_Chart.YDim then
9 b: [+ F. b( I2 @                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
  w: V) K, x9 ^5 V: ?3 b( Q/ R3 @                        print "Yes";
9 G! |# u9 j6 V7 V; h                when 32 then
                        print "No";
                else
                        print "Cancel";
) l3 g; Y. b% J7 G+ {8 _                end;
& G  ]% F! S: F% G  c6 [        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
' `3 }. C$ S4 ~8 y) s4 C5 c2 {2 v        for j:=1 to Number_Of_Machine loop
                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
1 v3 U1 H  W% n; o# ^                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
$ h5 c5 s. P0 L  [9 {% c                                end;
                        end;
- T3 a. C8 o' o7 f                end;
        next;
  ^2 O7 I9 x! K. Qnext;
. S5 R9 m3 c- c  f, D" j
end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
5 E, m) d$ n3 n+ ?: K2 s# Z  }# {3 B        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
. c# z7 O2 t+ G. b  @                            Lines :=Lines+1;
$ b2 v/ i- Y  s  X                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
- i; j3 E1 m0 ~. S- o& Z; u                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
( Y" ~& |6 Z5 r" t7 P" N" v& `                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        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]);
2 [0 F7 ~; h- }' Y7 U! i        Machine.Name :=MachineName;
) z1 O) I( P) n7 p        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
* }) N8 b- t0 D# R" {; n        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;
        Buf.Capacity :=5000;
# m" }0 R' r- [5 I0 Y' ]        Buf.ProcTime :=0;
( u3 h$ @0 g  m7 Q        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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