程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
, m3 q2 c# [  W: Cis
        i,j,Rows,Lines:integer;
9 z! t4 p, U: J: y- C9 x        MachineName,BufName:string;
        Machine,Buf:object;
: M" {" v8 `6 ]do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
3 s( g6 a" b/ P3 K" k8 h                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
& E3 T& r3 _( S$ _# q$ [                        print "Yes";
                when 32 then
                        print "No";
, o2 R0 @% o, a6 i, B& w* F3 m0 V                else
                        print "Cancel";
) s0 ~) c/ g4 n, Y# w                end;
4 }0 q* z0 L9 r* l3 _7 E( Q        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
, X* d% h% Y+ n                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
1 c' K4 R+ o  l) L                        end;
( M) N- q9 ?% W; S2 u6 ^: _! z5 @                else
5 x: ?; Z) K5 e; [9 |                        if j=i then
                                D_From_To_Chart[j,i]:=0;
' T6 q- p5 Z: ~/ k) b4 p7 m" B                        else
                                if D_From_To_Chart[j,i]<=0 then
3 f! }; d; X& S                                        messageBox("distence<=0...,",50,13);
! p# s/ i8 u) Q9 {2 z2 a5 i, y                                        EventController.stop;
                                end;
  `# A% U0 u6 E( O                        end;
                end;
; l- J& `6 E1 W$ Z' \0 N" m        next;
next;
( `& o% @! E  ?5 {1 q
& A* L# `  u; s1 yend;
0 ^1 L4 B, p4 d* E- j
3 c- P! S; ?+ r- s5 N2 v. h    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
1 g. L0 c# @2 Z) L$ U# a+ n        MachineSequence[2,i]:=Rows;
$ P- s' }6 A: @# q! ~0 }/ g& K            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
( i; d: H9 d2 x- N2 l- o                            Lines :=Lines+1;
2 ?9 O( e5 k: I- C' H6 [                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
8 J7 ?# U! q# d9 \                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
) Q8 \' f: j  E6 O5 x# b" K                        PartsTable[3,Lines]:=sprint("Parts");
1 l" |% {! S6 w& p4 ]  R/ N3 V                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
4 L: b# q# l4 p. D1 ?                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]);
        Machine.Name :=MachineName;
: O" V4 e! q+ i. G+ Q: ~8 R! H        Machine.ProcTime :=5;
3 S: j  T& i# e3 S; `# W; V1 d) h        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
$ Z* w2 a. B0 v0 x       
        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]);
                Buf.Name :=BufName;
8 ?2 P0 g. ?( `        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
: i; C' }& t; R+ D1 ]  o- P  Q        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
& A% n6 r! u- J' J

五五

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

wudi

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