程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
* C# h7 ?1 @% W, ?+ t, ]# C, sis
7 S- [( y+ V  {* {/ H        i,j,Rows,Lines:integer;
$ j; P! t8 m! I- a' F! c6 Y7 O" \  @        MachineName,BufName:string;
" Z0 d- R+ r$ S        Machine,Buf:object;
do
. a& \9 H* H; t2 P' ~( I        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
0 X8 }8 A/ q. x9 Q. Q                        print "No";
  ]& a, i# b, W                else
4 s; t0 N3 ^! `! {                        print "Cancel";
                end;
        EventController.stop;
end;
$ q3 c1 ^: K- I5 PPartsTable.delete;
for i:=1 to Number_Of_Machine loop
9 m8 z; f) y: {" a        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
; |. b. b5 T( |( E1 W# U                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
6 {' h1 O6 p+ Y4 P! O8 T/ R                        end;
                else
                        if j=i then
, g2 _  z) S5 }) [! C: r                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
: |+ u" L# f; d" o3 `" f                        end;
( C4 o, ~  S. w9 J$ {% J3 S" T$ X                end;
        next;
$ |/ K, v7 V* k3 G' Ynext;

end;
2 n) X) x% p% X
- E& }0 c* H, J7 Q: r    Lines :=0;
+ r- V! C: k3 [4 g; u+ q/ Z3 c        for i:1 to Number_Of_Machine loop
& U- f) o' x- D        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
  N: h$ g! b; \9 M                            Lines :=Lines+1;
8 Q* I6 Z+ T' ]  V                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
: F, S1 Q, \7 c& R3 |$ r                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
; y' }9 A) U* d- @  n$ @% M                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
* t; F3 B% j! A( J2 H) K* _                        PartsTable[6,Lines]:=j;
                end;
( C( U$ P9 A' D4 f+ @        next;
        MachineName :=sprint("M",Rows);
4 N/ _7 {/ t/ M2 D        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]);
8 N$ n+ m5 m+ e* p        Machine.Name :=MachineName;
( Q; v1 ^0 h5 ]0 E# r        Machine.ProcTime :=5;
# N" j" Y7 j5 s- y& ^% H( D2 P        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
) G  }  P0 D6 d       
2 d6 j; C& \2 O$ k% c' e        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]);
+ ]" n' e6 g% e3 u. S                 Buf.Name :=BufName;
+ L* a! p5 p) ~! Z. Z, M        Buf.Capacity :=5000;
7 O2 Z$ L, M) K" r        Buf.ProcTime :=0;
3 s- A+ S5 J4 _9 q2 u8 R        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
4 S  P) _& I" Y- A  O9 _; X

五五

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

wudi

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