程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
! M6 y  ~7 A6 i% ?( ^4 G& ?        MachineName,BufName:string;
        Machine,Buf:object;
do
# n: `* _  w5 T/ q: Z1 v4 ?8 |        if Number_Of_Machine/=D_From_To_Chart.YDim then
9 e3 d5 N- `0 p- E8 V. L                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
# ?$ R4 z5 ]: G# {$ d8 u0 D3 ^2 T                        print "No";
4 T. C$ z6 G0 V  ~, J                else
) X  y1 [; W# A0 {3 a2 J                        print "Cancel";
3 C2 L# w" h4 Q7 N) r( q# @                end;
        EventController.stop;
2 C' h. v2 k. @end;
PartsTable.delete;
4 G# c5 O/ @4 E0 c, ?for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
- Z; R3 D7 q7 j4 A9 P" z: {& s                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
5 f2 x% J" F4 J$ d                        if j=i then
  m0 I: }! P- B% [/ n4 C                                D_From_To_Chart[j,i]:=0;
                        else
. w6 a$ V& x5 z5 F                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
* X* m2 q* ~& Y& n1 t$ C5 K                                end;
                        end;
                end;
        next;
next;

$ u! l6 X( w' q- Vend;

% n) B6 A2 }; c" _2 s$ C    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
' K. p' X4 H6 k5 }6 @$ N. V                    if W_From_To_Chart[j,Rows]>0 then
* x0 Y1 t, Y5 U3 J$ l3 P5 ?: P                            Lines :=Lines+1;
9 E1 e- Y9 ~0 x- ]                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
: D" E' k" o5 I* Q' z7 R                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
" i, B# ?2 e% S5 i                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
2 P( K) X: Z; d                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
! ^* ]) X( ~, p8 s$ L' ~        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]);
- V' A0 x% g. n, L1 Q        Machine.Name :=MachineName;
; t; w- b% d" M; t- e, n% e        Machine.ProcTime :=5;
$ x1 }; A/ h* H% I        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        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;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
9 \9 @0 z( J6 h) f8 T/ N        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
/ q6 W1 V" N4 P* z  o$ m- T

五五

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

wudi

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