程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
0 T+ t  I& p0 y* d' m3 i% Wis
3 b1 W# H. _8 E, y6 d' q; j% f        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
6 `4 q) b  S; T! P8 p        Machine,Buf:object;
3 y5 e0 p0 j. z9 k% g* u0 L9 Edo
- \- S( W  _' [- t$ `2 Y6 Y( B* _        if Number_Of_Machine/=D_From_To_Chart.YDim then
# K4 J; Y% Q; n9 n5 C" q8 P# d3 a                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
( @3 A& S1 l, u! o$ T- G                        print "Yes";
                when 32 then
                        print "No";
/ l# I; Q: ^( ?  s5 R                else
* F5 b: w1 Q6 }! H2 _9 @/ P/ b9 ?                        print "Cancel";
                end;
" ]/ [% _5 u& r        EventController.stop;
, y7 Q, o0 u0 z5 |  l) i: g, Bend;
$ |# J/ m4 @9 s+ Z7 IPartsTable.delete;
for 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
$ v1 A/ F# D6 l/ M3 r                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
" H4 C- j5 T6 Z7 `+ K6 x2 A                else
) h1 u, `7 ?, P) r                        if j=i then
$ i' s" b# K1 n6 r6 y) V, U3 u                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
1 i, F& J3 F9 r( k                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
4 s* B2 l/ y: O                                end;
                        end;
  J! y" C. U" i0 a; y" P/ E                end;
        next;
next;
$ p- U/ v1 x; N, F7 |8 \# V# ?2 _
end;

0 D0 x  P# @% f( ~+ J( }+ Q( r* J6 p    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
/ g) T, d/ H4 }9 i6 W        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
5 k/ T7 Q" v  z5 I                    if W_From_To_Chart[j,Rows]>0 then
4 G/ f8 b% x8 y$ ^                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
8 C( s  O1 A$ ]& J                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
& H6 r. a, E6 U2 Y3 e1 c* w) \        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;
2 j( E- Q# e5 U7 T* ^( O0 U        Machine.label :=sprint("machine_",Rows);
- h3 t, p  E) w0 W3 A        Machine.ExitCtrl :=ref(Leave);
       
) @" A( c6 Z8 a, [" K& u+ x. G        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]);
9 i1 D1 I$ O5 Z+ N- o                 Buf.Name :=BufName;
6 t6 S( t7 G! p& O- }        Buf.Capacity :=5000;
6 d) |2 @) F+ u        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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