程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
+ W' l- z6 ~, W! f% Z        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
2 f5 h, ?2 k/ r        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
# I5 R8 U3 k) Y( v& d3 S' X                when 16 then
7 R" |" W1 t. |8 V                        print "Yes";
                when 32 then
& b6 _# `4 Z  n                        print "No";
                else
                        print "Cancel";
                end;
$ T. b% e" a$ |# o3 A2 H        EventController.stop;
end;
& A% g6 @( C" y) O* XPartsTable.delete;
for i:=1 to Number_Of_Machine loop
$ [3 N4 Q9 v8 p; E        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
/ T' A- {/ \# a3 c, @                        end;
# R0 b% W' y6 W6 p( i4 Q) ]                else
: W8 n" T& }0 s1 r$ P3 F                        if j=i then
                                D_From_To_Chart[j,i]:=0;
6 r, ]& i# |( E# n; M& _" F" i( T                        else
                                if D_From_To_Chart[j,i]<=0 then
% L1 V2 a4 W: l% `' f3 h7 ?, I  p                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
( w2 k1 t1 H2 ]$ j4 y# t8 H* S6 {( K                        end;
4 p7 d# ^9 w0 k+ q5 m0 ^$ w! U                end;
        next;
next;

) S5 S' T5 ?/ U; m# q, I$ R: r( aend;
2 Q5 q& m. z& _9 Z1 A- \. k
    Lines :=0;
- d+ \) p# \+ ?5 t6 X' S- r$ |        for i:1 to Number_Of_Machine loop
) Z( n- Q0 r9 g+ X* M% X6 n7 u        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
1 k' [) ]! k* O' F$ H            for j:1 to Number_Of_Machine loop
* f9 @& e! D8 p& v& Z7 N                    if W_From_To_Chart[j,Rows]>0 then
: i" A% C" h: }' q2 ^                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
: ?* ^. u7 Y3 R/ l6 T2 r                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
2 N$ E8 y! g" Q* T                        PartsTable[5,Lines]:=Rows;
3 {5 m* M0 ]. N                        PartsTable[6,Lines]:=j;
                end;
        next;
        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]);
# {* @" r! p7 K# q        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
7 z& {" `9 s  N! p$ x        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
/ v) B9 ?5 ^% O       
# b; w, }% s- x# Z8 b/ ^$ B/ E6 j3 J        BufName :=sprint("BF",Rows);
        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]);
( Z& k' C4 v% _# i: ]% i                 Buf.Name :=BufName;
& `- o/ U4 x4 {. F$ _; Q1 M        Buf.Capacity :=5000;
6 x; o, u/ o* r5 e. ?        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
9 |3 [# y! B7 o6 C( |; Mnext;
end;

五五

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

wudi

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