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

soso001

5 m, X# y, w! t  q不好意思，打错了个字母，呵呵呵！
" i' h9 |" J( C  O# s! O. b8 j大家好，本人em-plant新人，在看《生产系统仿真》第六章时，按书上的例子，写了段method，和书上是一样的，但总是提示
“行19中错误，循环计数器必须为整数类型的局部变量”，但我的全局变量是 integer 类型啊，不知道怎么回事，求帮助！
is
        j,k,nstep,c, scheduleteps,mincomptime:integer;
        M:string;
        selecTab:table[integer,integer,integer,string];
do
        initorders;
       
+ o& j! h4 ^& I        scheduledorders.delete;
" M8 |* m4 R: N% ~& l        seletTab.create;
( ]6 W  V8 i* y4 R       
3 G6 Y+ P, K: f/ N        orders.initialize({2,1}..{2,*},0);
8 p4 |; N  u2 z7 `9 s: u        orders.initialize({4,1}..{4,*},0);
        for j:=1 to numorders loop
6 T9 O% B/ q& e7 M                orders[5,j]:=orders[1,j][2,1];
. }, Z; v* g  N" U( B        next;
        occres.initialize({1,1}..{1,*},0);
       
        --XUNHUAN
        for scheduledsteps:=1 to numsteps loop --
                selectab.delete;
6 G5 W0 [9 n0 d' p/ G% o                k:=1;
                for j:=1 to numorders loop
                       
/ l, s1 M  u) R+ I% w1 R; H                        nstep:=orders[2,j]+1;
                        if nstep<=orders[3,j] then
                                selectab.writerow(1,k,j orders[4,j],orders[5,j],orders[1,j][1,nstep];
                                k:=k+1;
                                       
                        end;
. x& W) X) }- G                next;
                mincomptime:=selecttab.min({3,1}..{3,*});
               
+ ^9 O8 `. h+ k' M6 t: w                from j:=1 until j>selectab.ydim loop
                       
3 i# G3 ]1 c& c6 o& P0 X, p                        if selectab[2,j]<mincomptime then
                                j:=j+1;
& T) n6 C9 }5 E/ P' ~3 S  L                        else
                                selecttab.cutrow(j);
                        end;
. f% o) n! H+ J+ t* T( R4 U2 ]0 w                end;
               
% M7 b3 Z: T( i) U1 o' O                j:=selectionrule(selecttab);
) r/ }" i, [% l  E% f4 i               
                nstep;+orders[2.j]+1;
                orders[2,j]:=nstep;
                m:=orders[1,j][1,nstep];
/ \4 p1 ]+ e' ]. e/ }4 q: Y                c:=orders[5,j]
                occres[1,m]:=c;
               
                --jieguo:start,end,res,job,step
                scheduledorders.writerow(1,scheduledorders,orders[4,j],c,m,j,nstep);
% m# Y! y1 @6 \                for k:=1 to numorders loop
                        nstep:=orders[2,k]+1;
                       
9 J3 a2 z1 V+ u9 e; |: r                        if nstep<=orders[3,k] and orders[1,k][1,nstep]=m
- v" I4 S3 ]! t* I- ~                           --
( D4 S$ y) u) B& j, K                        then
: _3 J6 S2 v" n8 u3 @) ]  m7 \                                orders[4,k]:=max(c,orders[4,k]);
                                --
) D( p* X! \  b  B                                orders[5,k]:=orders[4,k]+orders[1,k][s,nstep];
                                --
                        end;
+ Y8 |) f- {/ f! h& Z' R                next;
                nstep:=orders[2,j]+1:
                if nstep<=orders[3,j]
                  
                then
; e& R/ K! d( g& L' R# |3 K) ?  T                        orders[4,j]:=max(c,occres[1,orders[1,j][1,nstep]]);
                        orders[5,j]:=orders[4,j]+orders[1,j][2,nstep];
                end;
' S( P: X$ m2 r& b6 D        next;
+ f9 v9 ~/ {2 ]: b; }       
        print"ready.duration of the schedule:",scheduledorders.max({2,1}..{2,*});
5 i3 M3 l) w5 W3 a+ @+ _        mygantt;
$ T; P/ d* A6 @, `: g        ens;
, t& w. B- y3 e+ S7 b/ p8 b/ K