程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
) P0 V9 e9 w( S  G4 l$ z        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
! \$ R6 U# q) x                        print "Yes";
5 V  M6 ]$ U5 h5 Z% g3 o                when 32 then
                        print "No";
" ]4 p* \& m! T0 B, P! ^" ?                else
                        print "Cancel";
7 {2 v; L- [  G, h+ A7 @+ u                end;
* D# ]; {0 m, H7 L* `8 m# M        EventController.stop;
) t" j! |. m8 P$ E4 Jend;
( N! Z3 u& v% n1 E: MPartsTable.delete;
! P. A% S4 R/ ~+ Q2 lfor i:=1 to Number_Of_Machine loop
* i5 \: `1 b2 z) m) v9 Z6 I        for j:=1 to Number_Of_Machine loop
8 _& b( \7 L; h& ]' o                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
+ B! u, f( L  i/ K3 F# O/ D                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
: r  f. [8 z# o) Z9 O/ P1 f                                D_From_To_Chart[j,i]:=0;
+ x: m' [# E7 R4 z3 F                        else
1 i3 ]1 Z0 i; ^" x* {% Y                                if D_From_To_Chart[j,i]<=0 then
% R' T% _1 H, @% I% h                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
# [  H1 z: j' {% |3 t" y) {7 g                        end;
                end;
        next;
  \% N7 A% d" [! U2 v6 ~3 Znext;
6 I  z9 d# D, y5 |, x8 j' r
' ~0 Y( v& i1 ?, kend;

+ r( M; |2 N; L' I9 a8 j    Lines :=0;
) h9 t. D+ {) g        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
7 f8 D6 n0 h! v) A        MachineSequence[2,i]:=Rows;
5 s5 P: @; c: n            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
" P8 h  t' T/ \& ~                            Lines :=Lines+1;
& u4 S/ \+ S1 A; n                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
; {: y% I; D* T7 |& ]                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
3 L, J4 N3 z5 H. L/ f                        PartsTable[5,Lines]:=Rows;
: }4 S" g: k6 {: R* S; B2 X                        PartsTable[6,Lines]:=j;
                end;
        next;
' |% D+ `% Z* L, Q- ?9 g        MachineName :=sprint("M",Rows);
- q: f! Z7 s2 E        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]);
# F* ~& A2 ?. _. }6 s7 s        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
5 r, o3 c" O" D2 b; m        Machine.label :=sprint("machine_",Rows);
9 }9 z+ R8 {1 b3 X        Machine.ExitCtrl :=ref(Leave);
) ^5 D6 S4 R0 d1 B% m+ ^       
        BufName :=sprint("BF",Rows);
/ ?" s% \! K3 Z" ~        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;
* x# @3 h9 d: j  u8 t        Buf.Capacity :=5000;
% S% k% I: z  Y1 M        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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