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

soso001

不好意思，打错了个字母，呵呵呵！
大家好，本人em-plant新人，在看《生产系统仿真》第六章时，按书上的例子，写了段method，和书上是一样的，但总是提示
! o& W& q3 ~. i“行19中错误，循环计数器必须为整数类型的局部变量”，但我的全局变量是 integer 类型啊，不知道怎么回事，求帮助！
is
        j,k,nstep,c, scheduleteps,mincomptime:integer;
        M:string;
) o: O' q. e% P) Y3 ?        selecTab:table[integer,integer,integer,string];
; i# v5 L# }3 sdo
$ l( g* i4 {5 a- H% B" t2 S8 V7 z. D# l, E        initorders;
       
, l3 _' M4 |$ J. I# `4 |        scheduledorders.delete;
        seletTab.create;
       
        orders.initialize({2,1}..{2,*},0);
        orders.initialize({4,1}..{4,*},0);
        for j:=1 to numorders loop
5 D9 Y0 X: p2 V                orders[5,j]:=orders[1,j][2,1];
        next;
  t. g  A# I* G: h( t        occres.initialize({1,1}..{1,*},0);
       
        --XUNHUAN
        for scheduledsteps:=1 to numsteps loop --
) ~5 D9 L2 t4 |/ G( c7 T2 L4 `                selectab.delete;
                k:=1;
" v0 U% i9 t) d; R- \                for j:=1 to numorders loop
                       
3 n3 M3 L1 A; y8 K8 C7 M) a                        nstep:=orders[2,j]+1;
$ t4 N% ^+ j* ^                        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;
                next;
                mincomptime:=selecttab.min({3,1}..{3,*});
% ~9 W3 k4 A& b+ \               
' J4 T5 M3 X+ j2 u8 {- E                from j:=1 until j>selectab.ydim loop
                       
) d* T* ^3 f- m( ?* x                        if selectab[2,j]<mincomptime then
! Q) O; t2 Q4 J+ [. g                                j:=j+1;
                        else
                                selecttab.cutrow(j);
                        end;
                end;
               
                j:=selectionrule(selecttab);
               
: P! ~6 z2 |/ u$ }4 O% k% O9 h: u                nstep;+orders[2.j]+1;
                orders[2,j]:=nstep;
                m:=orders[1,j][1,nstep];
# \9 C0 u  c+ U) y6 u$ ?% p4 b2 K                c:=orders[5,j]
                occres[1,m]:=c;
               
4 P) B, M; p9 T+ x: a; p: R4 h                --jieguo:start,end,res,job,step
4 e3 O: g0 r- m                scheduledorders.writerow(1,scheduledorders,orders[4,j],c,m,j,nstep);
& G+ |1 z( {3 n- ?3 H$ T                for k:=1 to numorders loop
; ~+ ]; |  Q7 J9 n, M$ w9 Z  \, u: w                        nstep:=orders[2,k]+1;
                       
                        if nstep<=orders[3,k] and orders[1,k][1,nstep]=m
                           --
4 k  s' |8 s3 Z/ O2 ~6 I- p. l                        then
                                orders[4,k]:=max(c,orders[4,k]);
                                --
                                orders[5,k]:=orders[4,k]+orders[1,k][s,nstep];
                                --
                        end;
! g! I5 f: p0 N3 c* {- t# L                next;
                nstep:=orders[2,j]+1:
                if nstep<=orders[3,j]
$ Z7 V' V/ o$ D& c                  
9 I4 k) l' {% y, s6 _                then
                        orders[4,j]:=max(c,occres[1,orders[1,j][1,nstep]]);
                        orders[5,j]:=orders[4,j]+orders[1,j][2,nstep];
/ S& d0 ^# D8 w4 B" m$ N( i, b                end;
$ n+ O2 `' x1 X$ r4 z        next;
       
        print"ready.duration of the schedule:",scheduledorders.max({2,1}..{2,*});
' A( A, o7 _* |6 V! h% S9 b- ~        mygantt;
        ens;
# X1 z9 p$ O5 b