程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
/ A: h* {9 R/ y6 B1 mis
        i,j,Rows,Lines:integer;
9 I; Y' n& m& S9 j0 ?) d$ ^        MachineName,BufName:string;
* n) x; ~3 ]% k1 m& I2 l7 ?* ~5 J        Machine,Buf:object;
, w" @, G' y" i/ z, J: V( Vdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
4 N) _1 a  ?7 H  S  d                when 16 then
8 X% _' s1 x% c6 A) x: V                        print "Yes";
- w4 I" J; x! w7 F" T                when 32 then
                        print "No";
                else
% s: f$ _  B% b, [! d" I5 B. o                        print "Cancel";
                end;
! Z3 H, a0 x: ]4 o) N        EventController.stop;
end;
PartsTable.delete;
' Y" U% U( f, B- J( S* kfor i:=1 to Number_Of_Machine loop
( Z& u6 ?& z& a/ f8 z9 B. H        for j:=1 to Number_Of_Machine loop
" o5 k# {1 n5 y4 u; O                if j<i then
2 q( Y1 M" \' K2 U% i, @6 ^$ J                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
  i; K8 m# n- y: b( B1 a- Y! I                else
: ]5 |. p, q8 i' ~+ [0 G+ W1 v                        if j=i then
                                D_From_To_Chart[j,i]:=0;
2 q  }8 i5 h8 H) x' [# ^- a+ Q                        else
) G) Z, ?0 ?# |: }+ o, K" c                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
! t4 J7 H9 L$ p5 `9 @/ [- k$ t! F                                end;
( F# ~0 k# u2 ~8 J9 R" s9 g' N                        end;
6 f. d# D1 K" B/ J; \; U, V/ r# D: @                end;
& X1 ^, ^: @: U! A2 D* T        next;
  B" l4 R5 l; _) X/ [8 n( j, Pnext;
( O1 b% }) L! E9 m/ X
end;
& i7 s# T! E/ O$ d
    Lines :=0;
        for i:1 to Number_Of_Machine loop
( y& h" `; P3 z        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
# h) u7 e) k8 j0 O% B% ?        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            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");
, E4 K8 D7 w; Q' l1 n; Q                        PartsTable[5,Lines]:=Rows;
( N, o2 c8 H0 E4 {! q                        PartsTable[6,Lines]:=j;
6 [: K) ]: n; D: h5 l+ J                end;
3 e$ }3 `8 C. ?  E; M" k9 p6 a& n        next;
6 s- ?) `" S9 ^  Q# k" i0 H        MachineName :=sprint("M",Rows);
; l) k  b* @2 F" o& n; S        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]);
) F4 l- T, ^( D% Y' ^. t        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
7 Z" Y7 _8 E7 G4 g3 l9 w& D        Machine.ExitCtrl :=ref(Leave);
6 n% m1 ~4 P$ `; ?+ d4 r       
( Z. b! t' P* i5 u: {4 v        BufName :=sprint("BF",Rows);
( y! ~3 H; r( a6 M8 R( n# 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]);
8 F" @: M7 T, v/ ~; V                 Buf.Name :=BufName;
6 U$ v8 _1 y. }8 t6 [$ Z9 ^- x        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
$ o; Z( Z; v9 m* n' F& e! r& Z7 X5 q        .MaterialFlow.Connector.connect(Buf,Machine);
. d$ y" q4 k7 vnext;
6 T( c- _+ i) C" vend;
2 q  S& B# B# A2 f! Z/ D. F! B

五五

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

wudi

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