程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
4 X6 e' N6 R* ?1 cis
: v" X0 d7 o2 A! r& K/ B        i,j,Rows,Lines:integer;
; N! J$ W' `! ]% b        MachineName,BufName:string;
) @$ j" a3 k  O+ Q1 e        Machine,Buf:object;
do
5 D+ C& Z. ^/ Q5 w& R' E: Z1 k+ A- t        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
, I* i1 S$ _( ]; _                when 16 then
1 n9 A4 p5 e9 Q8 z( {                        print "Yes";
                when 32 then
                        print "No";
( T, r1 J2 G& N) j5 l5 V( j                else
$ n( W0 w1 J* Z                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
& y) l+ D2 c: \1 R* afor i:=1 to Number_Of_Machine loop
! o7 O3 s( |3 s8 ^4 H) Z* `        for j:=1 to Number_Of_Machine loop
8 R1 j. [! M: y3 ^# J) W+ |' ~                if j<i then
% B+ r# \1 w' z                        if D_From_To_Chart[j,i]<=0 then
' j3 ?' C$ r) o& v) Y% d8 ?. Q                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
. B: H, j/ Q  t4 j                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
/ n! j$ V" W4 [0 r2 o6 ]9 O                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
! ]7 I- ]2 s4 x3 P* i  @                end;
        next;
: S# y* ^7 Q8 ?9 `next;

end;
# I8 Q" L8 {" Y$ Y  A) j$ V
3 @" W  n+ t) y( i    Lines :=0;
2 ~6 y3 G5 O- D+ s( W% n( h        for i:1 to Number_Of_Machine loop
# C3 o  d7 X% J        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
7 j6 ~) G9 V6 D- [* N8 ~            for j:1 to Number_Of_Machine loop
) |( x9 V+ V' c8 n) A                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
8 V1 {) U7 `3 ?, Y                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
, h. V# }0 m! Y5 r3 _                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
" v- J2 `7 j$ U# O5 v* ?        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;
        Machine.label :=sprint("machine_",Rows);
/ k" V" Q5 \1 C1 n" L; }        Machine.ExitCtrl :=ref(Leave);
       
2 G' @) m; j# ~3 a3 N: t! S% O) l        BufName :=sprint("BF",Rows);
6 U: |4 U- S3 U& `# C        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;
+ ?- d9 r8 U4 t) G1 U" Z. B' J. b        Buf.Capacity :=5000;
; ]* ]: U4 y$ _0 c        Buf.ProcTime :=0;
/ J6 A3 S) I; M" U        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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