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

soso001

不好意思，打错了个字母，呵呵呵！
/ q8 q# F8 N/ W1 t8 @大家好，本人em-plant新人，在看《生产系统仿真》第六章时，按书上的例子，写了段method，和书上是一样的，但总是提示
“行19中错误，循环计数器必须为整数类型的局部变量”，但我的全局变量是 integer 类型啊，不知道怎么回事，求帮助！
2 p6 B3 Y6 X+ q2 D6 F- K# ?is
5 q3 I; x5 W# s! ^* m        j,k,nstep,c, scheduleteps,mincomptime:integer;
        M:string;
" f! J0 B5 ?- G. M6 N0 U* d        selecTab:table[integer,integer,integer,string];
do
* ]+ ^+ A8 J7 r) a5 v9 v        initorders;
: }# \. i9 R7 h  W- \* Y% k; l, F       
        scheduledorders.delete;
% `) G2 U4 H) p. J% R        seletTab.create;
& ^1 d' R4 N0 K8 N       
        orders.initialize({2,1}..{2,*},0);
! H9 p1 L$ e6 ]9 D' Z3 M        orders.initialize({4,1}..{4,*},0);
        for j:=1 to numorders loop
8 W" w+ }$ l  q6 J                orders[5,j]:=orders[1,j][2,1];
# Y2 y3 c" ~' q% _; a2 k. N        next;
        occres.initialize({1,1}..{1,*},0);
  ?# O+ n- X4 I$ u  E; n. w) R       
        --XUNHUAN
& N2 C. J' d7 ~* V) i        for scheduledsteps:=1 to numsteps loop --
                selectab.delete;
7 w+ [4 v& z& w, G; W' e# |0 {' E                k:=1;
! A0 |9 i& W+ S  [  g, H0 }0 C3 m                for j:=1 to numorders loop
( U# p9 O5 g3 V: Z, ]                       
                        nstep:=orders[2,j]+1;
3 s0 u% }+ S3 P) U$ Y: h                        if nstep<=orders[3,j] then
                                selectab.writerow(1,k,j orders[4,j],orders[5,j],orders[1,j][1,nstep];
! Z4 Z6 q, e. E  N5 [1 `                                k:=k+1;
                                       
                        end;
! J1 y2 p; S. T                next;
) G# M; ?5 M, G                mincomptime:=selecttab.min({3,1}..{3,*});
0 P; ~* B  h+ Y               
8 K9 V' Y' _* v                from j:=1 until j>selectab.ydim loop
' h7 V- H6 O7 r2 s  E9 H                       
                        if selectab[2,j]<mincomptime then
2 g) s6 l$ Q' v" }; d: J* M; b                                j:=j+1;
                        else
$ h+ k5 H! \/ H# Y% r1 [9 J                                selecttab.cutrow(j);
                        end;
                end;
               
7 X$ v/ K: d6 |  E% V0 P& b  @                j:=selectionrule(selecttab);
# b5 M1 z8 G. S0 Y) Q               
                nstep;+orders[2.j]+1;
                orders[2,j]:=nstep;
, ~6 V: f. r) G. |3 {                m:=orders[1,j][1,nstep];
                c:=orders[5,j]
9 ?; g$ p$ d" w3 }, S- @; n                occres[1,m]:=c;
               
# W/ f5 J7 V1 b( j+ ?                --jieguo:start,end,res,job,step
/ R3 ?3 ]# F# I. }$ |3 N8 O3 A                scheduledorders.writerow(1,scheduledorders,orders[4,j],c,m,j,nstep);
" Z0 V+ Y% E/ n0 l: a% [                for k:=1 to numorders loop
- e: M7 ~& R' ]9 M3 Y! ]* h                        nstep:=orders[2,k]+1;
                       
                        if nstep<=orders[3,k] and orders[1,k][1,nstep]=m
                           --
+ ^8 R9 J/ |+ }( J                        then
2 i# z# ?8 ~! v& q5 w# g) A                                orders[4,k]:=max(c,orders[4,k]);
4 r, s( X$ m3 G4 ^, S: h6 ]+ S8 @$ R3 I                                --
* L  Q- w5 y! `) P3 B3 M                                orders[5,k]:=orders[4,k]+orders[1,k][s,nstep];
                                --
; c- a4 R% ~& Y: S                        end;
                next;
3 {. A$ f2 X7 w. V) B                nstep:=orders[2,j]+1:
                if nstep<=orders[3,j]
                  
2 f$ A' L* T) S7 j+ e1 c( V                then
                        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;
       
8 g. d# S) k- w/ u  }; t  S" A        print"ready.duration of the schedule:",scheduledorders.max({2,1}..{2,*});
        mygantt;
        ens;