程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
+ Q1 I# _3 n# j! ]is
# h' ?, X/ N* \0 r: @6 ], C+ ^4 o5 x/ c        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
7 y( V" j5 g  {  |6 E- T, c        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
  j# K, A: [; o& k                        print "Yes";
# K7 b  A+ D; c$ O+ P: y) m                when 32 then
- x) O5 Q; E3 C2 A; E4 @                        print "No";
                else
                        print "Cancel";
) O8 |% s% m  y% Q& R                end;
& |) s8 W! M6 U8 Y3 q        EventController.stop;
end;
PartsTable.delete;
9 W! D" X- M. M" B) B6 W: Z; zfor 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
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
6 L# X& D' ]7 H5 z" V- o: f                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
1 A. c, Q8 Y, `& F; J: u9 Q                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
( J0 O4 r& E5 \' r6 T- C                                end;
                        end;
                end;
        next;
' |) E3 [' L. rnext;
4 {3 \: t  V" U( L; B4 S4 U" x
0 T' ^$ K: K- V& Y, V% |; gend;

2 A6 Q# w+ t; X1 y& q& e, g    Lines :=0;
( o' h: R: J5 W/ m: ^7 a6 @        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
+ K% [) o) L  t+ S* e# ?        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
: y% j  n1 H1 h* x6 O( n  d; t                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
" X7 Y  X; ~! C* ~/ p                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
* I: j8 D6 u) n! X2 U                        PartsTable[3,Lines]:=sprint("Parts");
! Z+ e& F# O1 r% E+ }2 `- K' d. q                        PartsTable[5,Lines]:=Rows;
- G0 G  a8 C& c$ e9 V" {: ]8 r                        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]);
" I2 _' }# r" L' ]; f& _. A& i+ V( A% d        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
0 m+ |% _2 `- R/ p/ [        Machine.label :=sprint("machine_",Rows);
$ ]1 z2 W; v6 d: n        Machine.ExitCtrl :=ref(Leave);
: F) ~/ `1 F& d4 t& R       
        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]);
$ S; b  V+ ?( P& s0 M& q                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
2 {) }% l, z  z0 u        .MaterialFlow.Connector.connect(Buf,Machine);
* k' C: i. r. fnext;
end;
% j) A3 Y$ ~% m5 a$ _- {5 U" D

五五

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

wudi

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