程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
: ]% C! @+ t& s" @, K, P& N        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
0 R  D; u" D6 P# b7 w        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
& a  x3 g  O, l; P* {                when 16 then
                        print "Yes";
# S3 b) P! a) u6 v                when 32 then
3 C# @9 r% t6 D/ S  V. u' K, I  b                        print "No";
                else
& C& |) C# L8 n5 s) }) X0 q" q                        print "Cancel";
( e. V) U1 k/ }                end;
        EventController.stop;
1 ?4 n; t1 M% Z# Cend;
/ g; a5 g. G; K" Q/ j2 ZPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
. V4 w' n) V: M, |% K$ v                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
1 k+ h: J  `6 U6 w7 ~                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
/ o3 }. v0 l$ H+ r7 k  C                        if j=i then
$ Z9 d8 P3 i1 p/ S0 g                                D_From_To_Chart[j,i]:=0;
" b1 b4 V" _) O. M: L; p0 U& I                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
0 s+ Z' o. p' U5 F' _% f$ w8 ^                        end;
                end;
        next;
next;

end;

1 z( T& s: n, s) p0 I& t$ n    Lines :=0;
        for i:1 to Number_Of_Machine loop
$ g( h3 a! ^/ O9 _; X4 x/ w0 z        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
# l8 f* o) J9 m* y        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
" ~. _. c- v6 }# w* l                    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];
. D/ |& x! p: {1 j. L. P6 |                        PartsTable[3,Lines]:=sprint("Parts");
$ K) E: G4 s" E                        PartsTable[5,Lines]:=Rows;
6 G( D) P# z" a                        PartsTable[6,Lines]:=j;
1 x- }8 E; n4 i: I                end;
0 ~, b( [  ^0 h2 m: p        next;
6 I% P3 D+ u& {( ]; g5 `        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;
$ b2 I' ^+ ?  g/ g7 c        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
" Z4 g. S5 ?! B        Machine.ExitCtrl :=ref(Leave);
! c; J4 k+ K: t* O, l3 u/ U       
        BufName :=sprint("BF",Rows);
' z3 r/ W# N; W$ }- N. o        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;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
/ l% ^5 ^" u2 {% tnext;
end;
2 M) g" a* N- _! q4 c4 U

五五

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

wudi

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