程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
, W  f; N; m3 w) K- p0 C* ^is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
: [+ S3 |; y$ T' ]; S# \        Machine,Buf:object;
* T" E6 t- q) q, R3 x& R; ~do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
: h/ i  s/ m3 I* f1 B) A                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
  w' T, ~1 V3 ]7 H6 L% }7 B                end;
        EventController.stop;
end;
PartsTable.delete;
; v, Y9 Q3 |7 l; x( n- ufor i:=1 to Number_Of_Machine loop
3 e2 i; f* e$ v( I/ E9 A        for j:=1 to Number_Of_Machine loop
4 ~" Q8 T+ u( _+ S                if j<i then
: I+ U) l0 [3 z4 I; `* ~                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
: O* t, T% \) L. W2 W                        end;
" M, S) c* Y) Y4 S                else
& o- ]" M1 E4 j9 \                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
" {# S$ [) a4 R9 G                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
3 N4 M$ I+ R* {" ]2 U                                        EventController.stop;
                                end;
' _, ^. t3 \- f6 \+ A# m                        end;
                end;
" p3 |" O' V, F# K* d        next;
next;

$ M9 Y0 ~& _* T: ^end;

1 M$ O# y3 O4 [$ {9 ?0 X4 `7 E$ n    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
% f& |, t. A$ R2 b* ~, U" y; l        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
0 L) c' N) I& A: F, f* m                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
- {: B; m9 J; t* g' _6 ~2 x                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
2 d  ?( ]0 W5 B: p' M                        PartsTable[6,Lines]:=j;
) |# x9 h' c+ e1 O3 q* {; X# A                end;
        next;
0 b+ \0 _1 H0 X! ]# D        MachineName :=sprint("M",Rows);
+ X9 W% w8 o/ F5 a$ K/ C; n        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;
+ r4 [3 a! b. J        Machine.ProcTime :=5;
: U' _: T" @$ |8 f. w! A        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
( a6 M5 T) |- E' x: ^       
        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]);
0 D: v- _( |: r$ I. @- d5 i                 Buf.Name :=BufName;
$ W) X1 I7 g8 d3 I1 A3 z9 D2 x        Buf.Capacity :=5000;
, M8 b% c# t4 c        Buf.ProcTime :=0;
( L) ~* J+ ^( K9 Q7 @' T        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
. E+ \) S# i9 N+ [' f$ G$ Q# k, y% O

五五

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

wudi

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