程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
' V! J) i3 \9 Zis
+ D8 b. h4 U* P        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
2 I/ P$ n) Z5 A% u2 Edo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
% G* B# ]6 w( ^/ N5 Z                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
9 v+ J0 i1 y. _/ ^  w                        print "Yes";
! [) Y5 |1 u) S" B                when 32 then
                        print "No";
4 w5 s/ V1 u, U( g) Y: v+ u                else
                        print "Cancel";
7 E* S1 Z5 H( N/ O- A9 d" @1 V                end;
3 u  v. x' l: F0 N: ?        EventController.stop;
end;
' z' u) ~. W/ x& R# m' D5 W$ ?( ?" ~PartsTable.delete;
for i:=1 to Number_Of_Machine loop
; N) }9 l; |0 G        for j:=1 to Number_Of_Machine loop
                if j<i then
/ ]- ~( F) k8 e! `                        if D_From_To_Chart[j,i]<=0 then
* ^6 ]. z- O: z5 S( \                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
% ?) t* V% i1 t  z3 g) ^, n6 J                        end;
                else
2 [" Q, _2 C7 u  I; l                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
  E; }# x- b! ?' x                                if D_From_To_Chart[j,i]<=0 then
+ s% |+ U% t& ]- O( n                                        messageBox("distence<=0...,",50,13);
3 |8 Y( G* ~3 H3 I  L5 ^, l                                        EventController.stop;
                                end;
3 D3 ^/ W. T  B, A0 c) j                        end;
, b6 K: R" o* O2 ]                end;
        next;
next;

end;
: c* r8 T, m- ^
    Lines :=0;
) p2 N8 _' _" }        for i:1 to Number_Of_Machine loop
+ s7 o4 {5 F6 n6 t% D        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
3 O* w; T: T% `6 Y3 n8 G+ z- e        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
& q8 z2 `8 B: n* H' s  y& b1 D8 _                            Lines :=Lines+1;
, U3 D; {- T. ^  ^                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
* l. ]* j* V& E# t- b                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
9 m0 F: W# u, i  h& \                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
/ y0 K4 c. x3 n        next;
, U( X/ V9 A: I        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]);
" i0 t- e+ x: C+ M* d        Machine.Name :=MachineName;
+ r" g2 F& z9 Y6 c$ t        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
: j' ]9 h; [, _* Q& z. r8 v        Machine.ExitCtrl :=ref(Leave);
0 Y- e2 h  ~7 X% ^! Y; l       
        BufName :=sprint("BF",Rows);
  Q" m0 [/ U  o1 P& 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]);
# [2 |( M( C/ H( B+ R/ e                 Buf.Name :=BufName;
0 U+ N. _% V+ b* X        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
! t2 U" U  C0 }end;

五五

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

wudi

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