程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
- D6 j3 _6 R% N6 v$ E% l! L8 }is
9 a, O6 A( X3 e: N+ B        i,j,Rows,Lines:integer;
4 S/ X: _1 G: P: ~7 K% K* W* I- G        MachineName,BufName:string;
4 @% i  f7 U: }. T: h5 ?& h        Machine,Buf:object;
0 D# s6 D" [: e5 l3 N# A- Fdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
' v2 j- v* k1 }                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
& n/ D. R3 U" i# K: M' K9 F$ X% Q                else
                        print "Cancel";
9 y" T2 e( Y5 c: y) A/ E. ^                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
6 f! ]) ]% E5 r        for j:=1 to Number_Of_Machine loop
0 h$ T! v) c5 o; x                if j<i then
! Q# S& C# s) y* [                        if D_From_To_Chart[j,i]<=0 then
0 o& T/ Y% k; \8 p* e9 ~; E                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
* h) \' y1 j; n! T; {) J% g                        end;
5 B) F' e" R0 T6 L3 N! M                else
                        if j=i then
( x; ]( g: h+ u) A3 a, @; P" G                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
3 Q! O, s1 x1 z. d                                        EventController.stop;
                                end;
6 q! g5 U1 |2 N% h5 E) T  a. X                        end;
                end;
" \$ X  }1 U. x        next;
$ V; x1 Q( K6 w. U4 ]8 C. Pnext;
7 g2 E- i% K6 u7 M% R/ c5 S5 N6 e, H; C
end;

1 P- E; Q9 K' I1 m% h% y8 l    Lines :=0;
6 ^# W; a, Q8 b' l        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
8 Z% W& w, k7 h                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
( q+ l7 E5 l4 m) t                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
" Y1 f8 h) G; j$ p" D7 ], e" I                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
) L, ~, N% y& b0 m) o# r        MachineName :=sprint("M",Rows);
, P  k0 F$ [% _& ~8 t        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]);
+ X# w2 ]  X3 v/ O' U0 ?5 S6 [# X        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
2 `/ N3 L. i& }; z  h" d/ V       
; A: |4 x' n& s* |3 Y! q4 V        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]);
5 V3 z) |. B3 g; X0 ]7 e                 Buf.Name :=BufName;
8 Z+ |; ?( c( O5 U& U4 Q        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
) }! F. H* |7 n# M9 N7 [next;
3 Q$ N) V6 B& u) \  c) |, Send;
. H- l# L, p8 A2 f* H5 v

五五

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

wudi

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