求助-生产系统仿真-第六章例子 运行错误

soso001

) I1 D9 E) u- M6 y0 w/ n
不好意思，打错了个字母，呵呵呵！
大家好，本人em-plant新人，在看《生产系统仿真》第六章时，按书上的例子，写了段method，和书上是一样的，但总是提示
! }# a" C) G) c% c“行19中错误，循环计数器必须为整数类型的局部变量”，但我的全局变量是 integer 类型啊，不知道怎么回事，求帮助！
) s+ \$ j8 U/ S9 @! pis
& y  h. P" h; P3 B9 U  _7 Z4 K        j,k,nstep,c, scheduleteps,mincomptime:integer;
        M:string;
        selecTab:table[integer,integer,integer,string];
do
        initorders;
       
/ Q, G1 j9 |% w, B* J# x        scheduledorders.delete;
        seletTab.create;
       
        orders.initialize({2,1}..{2,*},0);
        orders.initialize({4,1}..{4,*},0);
, n, ?) S6 i  w+ t2 _" V1 R        for j:=1 to numorders loop
5 D9 I/ u8 U6 A1 k                orders[5,j]:=orders[1,j][2,1];
        next;
        occres.initialize({1,1}..{1,*},0);
/ L; H( |, F! Z       
" b3 U9 K& u2 }        --XUNHUAN
        for scheduledsteps:=1 to numsteps loop --
( V* x7 s3 J9 C1 C# R: P                selectab.delete;
                k:=1;
                for j:=1 to numorders loop
                       
                        nstep:=orders[2,j]+1;
                        if nstep<=orders[3,j] then
# X0 [  s$ L) Q7 W$ m0 z( p                                selectab.writerow(1,k,j orders[4,j],orders[5,j],orders[1,j][1,nstep];
                                k:=k+1;
                                       
                        end;
9 s/ `9 n! q4 K                next;
                mincomptime:=selecttab.min({3,1}..{3,*});
; Q4 }' w! |3 y. P/ `               
                from j:=1 until j>selectab.ydim loop
7 e/ {: N, k6 Z" Y                       
                        if selectab[2,j]<mincomptime then
9 H. T$ F* v) d# h  J% i. G                                j:=j+1;
                        else
                                selecttab.cutrow(j);
                        end;
                end;
7 ^% y; \, [' H0 F" I+ c               
( {: o4 D. X0 ~2 Y2 F                j:=selectionrule(selecttab);
/ }/ \  W) Q5 Z2 X) b7 W               
  v* o' K7 F$ }/ s' @! N. c6 ~                nstep;+orders[2.j]+1;
                orders[2,j]:=nstep;
                m:=orders[1,j][1,nstep];
                c:=orders[5,j]
, x& B( E1 [% `( W                occres[1,m]:=c;
               
- j, C" n& B$ ~                --jieguo:start,end,res,job,step
                scheduledorders.writerow(1,scheduledorders,orders[4,j],c,m,j,nstep);
                for k:=1 to numorders loop
* R1 |8 B* L0 \$ A                        nstep:=orders[2,k]+1;
                       
                        if nstep<=orders[3,k] and orders[1,k][1,nstep]=m
                           --
/ y: x: M# w, r+ ^) H% M/ }                        then
% ~3 B. Y, _% e) _7 V, E4 Y" P" B                                orders[4,k]:=max(c,orders[4,k]);
                                --
                                orders[5,k]:=orders[4,k]+orders[1,k][s,nstep];
5 X* T9 J( X; b) f) s# u                                --
3 J* ~  d, A8 A+ F2 f' H                        end;
* b  v6 e& N1 \/ z% O3 @" {5 @$ x7 N. Z                next;
                nstep:=orders[2,j]+1:
3 e) ^/ [& t9 m5 ?                if nstep<=orders[3,j]
                  
8 N! J. `' z1 o$ q9 D4 |& i4 G# i                then
4 S) A( `2 V4 E" Z3 a9 e% T: r                        orders[4,j]:=max(c,occres[1,orders[1,j][1,nstep]]);
                        orders[5,j]:=orders[4,j]+orders[1,j][2,nstep];
                end;
        next;
6 W8 s! k/ M9 E1 X4 M2 e- A       
        print"ready.duration of the schedule:",scheduledorders.max({2,1}..{2,*});
        mygantt;
        ens;