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

soso001

不好意思，打错了个字母，呵呵呵！
大家好，本人em-plant新人，在看《生产系统仿真》第六章时，按书上的例子，写了段method，和书上是一样的，但总是提示
) ]5 q& x# \6 S, o' h9 u5 V“行19中错误，循环计数器必须为整数类型的局部变量”，但我的全局变量是 integer 类型啊，不知道怎么回事，求帮助！
is
        j,k,nstep,c, scheduleteps,mincomptime:integer;
( h& t  s3 e; z0 j        M:string;
4 z+ V5 Z  ]+ U        selecTab:table[integer,integer,integer,string];
4 y$ f7 F/ q: p. S& X/ L2 Udo
+ e% R+ b* y9 f$ s        initorders;
       
        scheduledorders.delete;
8 T  n5 R+ G0 \        seletTab.create;
       
        orders.initialize({2,1}..{2,*},0);
4 N* u: |" J1 o& v        orders.initialize({4,1}..{4,*},0);
        for j:=1 to numorders loop
                orders[5,j]:=orders[1,j][2,1];
        next;
# x. T, A$ b; x: \# x2 v        occres.initialize({1,1}..{1,*},0);
8 A- z) @; J& H) h. C7 N       
: T) e4 X. @0 T0 @/ Q        --XUNHUAN
        for scheduledsteps:=1 to numsteps loop --
                selectab.delete;
+ s0 J+ t! ~4 d0 q5 L                k:=1;
! L/ V2 ^' r+ b) Z3 ?                for j:=1 to numorders loop
) k' o% N8 e4 B; x4 ^& e4 v2 v6 }6 ^/ ?                       
                        nstep:=orders[2,j]+1;
2 g7 z& O0 V) p$ T$ ^# t, }# v- X( S                        if nstep<=orders[3,j] then
7 y: z; f& F) ]" v* i# ~                                selectab.writerow(1,k,j orders[4,j],orders[5,j],orders[1,j][1,nstep];
                                k:=k+1;
                                       
                        end;
                next;
' _& {: H3 p3 v                mincomptime:=selecttab.min({3,1}..{3,*});
               
                from j:=1 until j>selectab.ydim loop
                       
# }* g' X, f+ l- S7 `# B% }                        if selectab[2,j]<mincomptime then
                                j:=j+1;
7 x( u4 P9 e8 ^5 Y9 y( K                        else
                                selecttab.cutrow(j);
                        end;
4 V3 @" A+ l0 C! u$ m9 c                end;
9 H# n7 i. J7 I* D6 n- ^               
                j:=selectionrule(selecttab);
               
/ a. Q5 \' [: ^" g- D- G# Q0 `& Z/ n) O                nstep;+orders[2.j]+1;
( ]8 f5 w0 k; L- L7 J. Y& ]8 w                orders[2,j]:=nstep;
4 {7 l8 [% H% ]4 F4 P                m:=orders[1,j][1,nstep];
                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);
( H' a, q7 [1 E1 r% p                for k:=1 to numorders loop
9 F+ c# w5 `/ N5 N& u                        nstep:=orders[2,k]+1;
                       
                        if nstep<=orders[3,k] and orders[1,k][1,nstep]=m
                           --
                        then
- [& e, \$ m2 G# A; K$ U( O                                orders[4,k]:=max(c,orders[4,k]);
                                --
                                orders[5,k]:=orders[4,k]+orders[1,k][s,nstep];
                                --
                        end;
                next;
                nstep:=orders[2,j]+1:
                if nstep<=orders[3,j]
( D+ y* W# v3 c2 y: J# Y* m                  
                then
                        orders[4,j]:=max(c,occres[1,orders[1,j][1,nstep]]);
# H* O$ z, Z  m. C# u' b3 ~                        orders[5,j]:=orders[4,j]+orders[1,j][2,nstep];
                end;
! @& U5 B. h2 V2 J: E  G/ P        next;
$ a; M) r) i) m! }2 P       
        print"ready.duration of the schedule:",scheduledorders.max({2,1}..{2,*});
        mygantt;
$ _" W" z$ }6 H4 @        ens;