程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
, B9 n/ q/ B) h* w' f$ Iis
" `5 k% C+ i( [6 K# c        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
  S0 X! n) ^' p2 T& {        Machine,Buf:object;
9 _; j+ M4 ?; h  ndo
2 t. I2 y) K2 z7 h7 p! f* A0 e. Q        if Number_Of_Machine/=D_From_To_Chart.YDim then
: ^+ @8 j7 R* ~% Y                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
2 s$ K! e3 E4 m                        print "Yes";
# U/ Y1 ?, _' W: {+ Q" e7 c                when 32 then
                        print "No";
                else
; }, j0 J# v; I  i, `0 Q0 V3 i                        print "Cancel";
                end;
2 L" r9 M& w  t8 k3 U( E        EventController.stop;
0 n$ w- I1 Z5 P+ C, D4 p# [end;
3 k5 @  }& x* _! T8 O, T) N7 R! zPartsTable.delete;
for i:=1 to Number_Of_Machine loop
$ i7 }' _, G4 M, j, ]        for j:=1 to Number_Of_Machine loop
9 H  k: Q: B. o" n9 p2 K                if j<i then
. ]* c# R4 V6 A  \# p                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
7 f+ F0 j0 v  p6 ~$ b. H                        if j=i then
9 B' B2 d+ v9 R! B% f/ T& ]                                D_From_To_Chart[j,i]:=0;
- T  |9 g1 k# {5 Z/ b/ ~' z1 K5 s                        else
                                if D_From_To_Chart[j,i]<=0 then
/ b6 ^) Y( J6 h                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
. _1 u" N5 O1 q+ j( |* f; \                                end;
3 C2 z, x$ t% `5 L) G4 ~                        end;
                end;
        next;
, `+ ]! E, y1 b" S  M0 }3 |2 H0 \! Gnext;

end;

    Lines :=0;
0 F! K, j' @/ W; b9 X' n( J) R        for i:1 to Number_Of_Machine loop
6 t# Z. Z1 ^2 o6 q        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
5 ?! i2 x- H- a% v                    if W_From_To_Chart[j,Rows]>0 then
) X& Y9 i& W& S6 P                            Lines :=Lines+1;
/ G+ s' e# q) p- \* D) @2 T/ a                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
+ R- h4 @9 P6 D& r. H/ Y                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
* ]* Q1 v; ~9 y3 [5 s9 q; W                        PartsTable[3,Lines]:=sprint("Parts");
, |; Q7 f  x# x! t& U3 ~# ]1 k+ l                        PartsTable[5,Lines]:=Rows;
5 u( t& n  v9 s6 x0 y) Q% z& ]                        PartsTable[6,Lines]:=j;
7 c& ]/ S3 h) ?7 T' z; X                end;
        next;
        MachineName :=sprint("M",Rows);
3 W) K/ j( Q  q' q" r' C) J        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]);
+ _$ A5 W) ?, @' m        Machine.Name :=MachineName;
1 c; h, B% J9 {! Q* m' I& k2 C1 F        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
+ `6 _6 r9 T# \4 r" d7 T6 t        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
% k. c% h9 ^: ^+ b$ f        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;
- F1 f9 I9 x$ V/ U- ?        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
+ f& S. c" o8 u2 q+ T        .MaterialFlow.Connector.connect(Buf,Machine);
# B$ f' {) e: ]+ y. a& ]% Y' G/ p) ?next;
end;

五五

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

wudi

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