程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
9 K' G$ B+ L5 r" l9 q! _is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
/ o1 Z: ~& h- f; r        Machine,Buf:object;
6 e" r- M$ l4 e/ hdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
! l+ t$ Q$ W: f0 ^$ G                when 16 then
                        print "Yes";
1 I; u* V$ D7 Z8 z                when 32 then
$ ]& c/ j( a; t' o8 Y                        print "No";
                else
                        print "Cancel";
9 N( y$ Y2 a) ^9 s                end;
        EventController.stop;
; E( _6 Z& m# g) A2 L' {) Xend;
9 E8 Q2 l- n5 I/ B0 IPartsTable.delete;
: o% ^. K7 @4 v" Nfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
" X0 }9 [5 U' Q8 Y# X" q                if j<i then
: I: W6 s6 D$ f: m, ^                        if D_From_To_Chart[j,i]<=0 then
( V; w( z# {2 t7 U- t. ]8 h0 B3 x                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
. }4 ?. v8 `3 Z2 r" g. v2 a                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
0 T$ L3 k+ D6 P# T: @' T" o# A                        else
                                if D_From_To_Chart[j,i]<=0 then
6 c& k, y# V; n. K                                        messageBox("distence<=0...,",50,13);
/ A( O' u$ R2 D                                        EventController.stop;
                                end;
                        end;
+ t. a% a  }( Y8 t9 b- S                end;
1 u# L1 w9 h7 p2 e& t/ W1 K. H6 V3 }% }        next;
, Q2 b8 U+ C& Y7 h9 `next;
1 @4 M( `: V  i7 E
end;

2 Q# \! s) D' a$ i( s    Lines :=0;
        for i:1 to Number_Of_Machine loop
        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
3 b) v% d0 Z* J0 t                            Lines :=Lines+1;
+ ^7 l1 V" m7 A/ p$ w. j                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
* r4 V/ x! G& J' B, D; l                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
% q1 u% E  T* ?1 h. J0 M                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
7 {  l- \2 ?4 M' t                end;
$ }; G5 f5 }! A7 t; l        next;
! L$ u% q7 Y- D3 ]        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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
) n* x6 U0 S  T# u& A( L       
        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]);
; X+ g$ A4 i2 `9 \. r5 L                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
2 G: H. g; u) }0 P        Buf.ProcTime :=0;
) u8 J1 z- i, U# `% g# g" z( c        .MaterialFlow.Connector.connect(Buf,Machine);
4 d; K! S5 ^- p+ u9 Gnext;
end;
. b5 i; f2 H5 A4 {1 T% R* d& x

五五

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

wudi

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