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

soso001

不好意思，打错了个字母，呵呵呵！
大家好，本人em-plant新人，在看《生产系统仿真》第六章时，按书上的例子，写了段method，和书上是一样的，但总是提示
, Q4 j7 M% @# T3 f' E“行19中错误，循环计数器必须为整数类型的局部变量”，但我的全局变量是 integer 类型啊，不知道怎么回事，求帮助！
is
" n6 k' o- }5 y" k6 O9 J        j,k,nstep,c, scheduleteps,mincomptime:integer;
        M:string;
, S7 J9 E5 x3 E        selecTab:table[integer,integer,integer,string];
do
        initorders;
       
        scheduledorders.delete;
8 c, ?# t- G) f" z9 Z; ?        seletTab.create;
       
        orders.initialize({2,1}..{2,*},0);
$ S9 n) d  u8 ~% B) p8 l0 n# h, a        orders.initialize({4,1}..{4,*},0);
: ?4 b7 }* w- Y        for j:=1 to numorders loop
; c5 y$ R/ }/ T( q- g8 H                orders[5,j]:=orders[1,j][2,1];
2 \7 b5 z1 ^7 ~        next;
        occres.initialize({1,1}..{1,*},0);
       
' Z2 ?$ {/ l5 ?9 M5 \        --XUNHUAN
        for scheduledsteps:=1 to numsteps loop --
                selectab.delete;
                k:=1;
                for j:=1 to numorders loop
                       
# w0 V' A& `6 k# d; K                        nstep:=orders[2,j]+1;
7 u% u% a0 y5 e" U* {- d/ _                        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;
                                       
$ D& `" L" A% Y' W- @+ F& ~* t  [                        end;
                next;
                mincomptime:=selecttab.min({3,1}..{3,*});
) K5 v) K+ ?6 S: E! z4 N+ {               
                from j:=1 until j>selectab.ydim loop
9 O& A2 l4 a1 E* z3 w1 U                       
. O% F1 d. L9 L- _' A' ?                        if selectab[2,j]<mincomptime then
                                j:=j+1;
                        else
                                selecttab.cutrow(j);
! x( L3 R* e5 Q4 O9 z                        end;
3 ]2 ]9 N5 m- f5 ~+ G                end;
               
                j:=selectionrule(selecttab);
               
                nstep;+orders[2.j]+1;
& k% Y  ]- {' ]0 D8 d                orders[2,j]:=nstep;
                m:=orders[1,j][1,nstep];
  d$ \0 \3 }) ?+ k  ]- e- f! G                c:=orders[5,j]
                occres[1,m]:=c;
               
                --jieguo:start,end,res,job,step
+ [$ R& H* G9 `$ f* w1 m                scheduledorders.writerow(1,scheduledorders,orders[4,j],c,m,j,nstep);
2 n/ H+ `# ^) W* }/ z5 @3 ?                for k:=1 to numorders loop
( D# ?* h7 G! M8 f' o3 l: ]  Q2 d                        nstep:=orders[2,k]+1;
, b# W& p2 E" i                       
- T+ S1 t0 T4 y) u' ?! e                        if nstep<=orders[3,k] and orders[1,k][1,nstep]=m
2 W; p8 n8 u* Y5 }                           --
                        then
: ?0 P; G$ B9 V6 X$ R' Q3 l                                orders[4,k]:=max(c,orders[4,k]);
0 Z3 ^) q, A; r1 `$ B                                --
& W9 s. |& R# A! S( a                                orders[5,k]:=orders[4,k]+orders[1,k][s,nstep];
                                --
5 p  o7 G) S1 o" a1 G                        end;
                next;
3 j! P# q, E6 P4 A& m' n. L                nstep:=orders[2,j]+1:
1 d+ P1 c2 \( C                if nstep<=orders[3,j]
7 b5 z, Y# M7 W  @; W" ]                  
' W5 ?3 Y! k' C  \% x                then
# I" }" I; c) ~4 E* [                        orders[4,j]:=max(c,occres[1,orders[1,j][1,nstep]]);
                        orders[5,j]:=orders[4,j]+orders[1,j][2,nstep];
; \. }; R) |  A( N2 N( X' W% Y                end;
        next;
: e3 s7 N: T' E3 M3 h% _, o/ s7 ~       
7 |% W' B$ ?3 P  I8 {9 B        print"ready.duration of the schedule:",scheduledorders.max({2,1}..{2,*});
) K/ X. V: `7 o8 R4 X        mygantt;
* ^$ S4 h. f& j  W% M        ens;
7 w4 Q2 x$ W; R* K& u  u. T" Y# ^