程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
7 `) j- E( S& m& ]5 J        Machine,Buf:object;
" E' ~' S& ?$ d7 }! j2 D$ Vdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
5 J2 n# a" [. p: F                inspect messageBox("Number Wrong...,",50,13)
/ |8 a, f/ h4 Q1 s( M: t                when 16 then
6 o, J. Y+ m+ c$ N                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
3 W9 \+ a  ]- T4 q9 d3 Y( K# @PartsTable.delete;
for i:=1 to Number_Of_Machine loop
* H2 u9 B  [. y        for j:=1 to Number_Of_Machine loop
  V+ I7 L5 n5 j/ e& i& u                if j<i then
4 n5 Q# B2 a. ^7 g+ L                        if D_From_To_Chart[j,i]<=0 then
5 s9 k2 H: |0 C# p& J, M9 T                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
1 i- {1 W' Q: W' l: I' Y                        end;
! o& w# V) v! z8 K1 H' r9 `: t                else
3 f' I5 y  I" ]! g0 f& n) ]                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
1 Z0 X. a! \3 S* D  x                                        messageBox("distence<=0...,",50,13);
* ^5 g3 i4 v' D7 T  y& t5 {                                        EventController.stop;
1 J& R% s, M% @7 W; h3 U                                end;
                        end;
                end;
$ E0 {" P! O4 j* @3 H/ [        next;
2 p/ u; d0 E6 N- n5 v7 w1 O* wnext;

end;

" r( M6 Y3 N3 m4 f* w, A    Lines :=0;
        for i:1 to Number_Of_Machine loop
' H! x2 D7 p) t# l) p/ ~/ h        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
                            Lines :=Lines+1;
+ m. P3 r5 U: \) D% N4 o8 f% b  W                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
6 `; j" G7 e! X/ w                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
9 R3 L/ l  U/ O( x% U                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
  S4 R& Z( y% a+ s0 O                        PartsTable[6,Lines]:=j;
! }: d- {# Q6 c5 ~0 E                end;
: G& `: R  m' ~& v5 }# [        next;
5 c- `1 W# ?& M2 S- Q0 ~- @        MachineName :=sprint("M",Rows);
$ W( ?: P/ ]$ J$ M: D' e' l0 G        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]);
+ e4 ~* t0 \: l+ J        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
( s0 {+ ]1 W6 B! B# s' V        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
+ Q. H+ q: W- p( M0 L) q4 ?       
        BufName :=sprint("BF",Rows);
7 w; w9 S& }6 U        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;
3 D$ t9 j# w) V& F. G7 M        Buf.Capacity :=5000;
0 _' ?# Q% O) y1 c# j/ L! w2 C0 V        Buf.ProcTime :=0;
5 ^; y9 T3 [: Q5 ~, G4 l/ l: n. \        .MaterialFlow.Connector.connect(Buf,Machine);
6 q) H5 T2 E" D% r! Z. pnext;
- d/ M/ w( Z# nend;

五五

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

wudi

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