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

soso001

" D- A5 x' d8 R不好意思，打错了个字母，呵呵呵！
大家好，本人em-plant新人，在看《生产系统仿真》第六章时，按书上的例子，写了段method，和书上是一样的，但总是提示
1 v; x4 B: g! w7 P“行19中错误，循环计数器必须为整数类型的局部变量”，但我的全局变量是 integer 类型啊，不知道怎么回事，求帮助！
& ]3 h# k( }0 q0 p$ L& ois
        j,k,nstep,c, scheduleteps,mincomptime:integer;
        M:string;
        selecTab:table[integer,integer,integer,string];
, V  q3 Y0 O) C4 J7 P6 Gdo
        initorders;
       
# U' a% G( g+ d; O5 T        scheduledorders.delete;
% f$ `7 `# l1 K) w* y5 L" Y        seletTab.create;
       
& I1 s; o: S8 v' r2 |        orders.initialize({2,1}..{2,*},0);
6 @" X  ?8 S+ u% W        orders.initialize({4,1}..{4,*},0);
        for j:=1 to numorders loop
                orders[5,j]:=orders[1,j][2,1];
+ W7 g3 T0 [: x+ `        next;
        occres.initialize({1,1}..{1,*},0);
! r6 @6 o1 L* }       
        --XUNHUAN
        for scheduledsteps:=1 to numsteps loop --
                selectab.delete;
+ I) @2 L) G3 e* ~) D1 O! k) `                k:=1;
: A4 f/ g; E2 O) k                for j:=1 to numorders loop
                       
% m: X0 `7 }+ `1 t; O8 x                        nstep:=orders[2,j]+1;
                        if nstep<=orders[3,j] then
3 F/ _* t2 }# W                                selectab.writerow(1,k,j orders[4,j],orders[5,j],orders[1,j][1,nstep];
                                k:=k+1;
! Z9 h0 O$ d( g# t% d9 O                                       
                        end;
                next;
                mincomptime:=selecttab.min({3,1}..{3,*});
               
% K- l8 E  G7 {                from j:=1 until j>selectab.ydim loop
1 ^4 K: P+ Z* b$ X7 X                       
                        if selectab[2,j]<mincomptime then
; ], ~8 `. w, D1 h2 v8 e6 w                                j:=j+1;
+ R4 O0 y0 Z! j0 F0 \                        else
                                selecttab.cutrow(j);
                        end;
                end;
               
/ c1 f2 @; v  V( S                j:=selectionrule(selecttab);
               
$ ^, \0 o# u* O6 [" }) y                nstep;+orders[2.j]+1;
                orders[2,j]:=nstep;
- P2 C: Q1 `$ T( z. P$ q                m:=orders[1,j][1,nstep];
  j/ e$ ^2 @" |& [4 t$ \' g                c:=orders[5,j]
                occres[1,m]:=c;
4 _) @7 d. K: v+ Q; O" S/ L# d               
/ K' W# v6 c# \, J                --jieguo:start,end,res,job,step
                scheduledorders.writerow(1,scheduledorders,orders[4,j],c,m,j,nstep);
                for k:=1 to numorders loop
                        nstep:=orders[2,k]+1;
  Q3 m7 J  j+ m/ @8 A. `/ n) P                       
; [7 s' k- i0 |8 b4 e" i                        if nstep<=orders[3,k] and orders[1,k][1,nstep]=m
                           --
                        then
                                orders[4,k]:=max(c,orders[4,k]);
) B* d  R# U, f! i2 P                                --
* }5 O+ k& ]: a' M% i; E                                orders[5,k]:=orders[4,k]+orders[1,k][s,nstep];
! M0 m" Q6 ]) l- m; t6 q7 q                                --
                        end;
7 x7 q( P8 P8 A$ ]8 X4 L2 X9 Z                next;
) }/ A' g: W+ [8 q1 ~0 n                nstep:=orders[2,j]+1:
                if nstep<=orders[3,j]
, o6 i, C7 Y- i+ u1 M- g3 R                  
5 f: _# n: L8 n: g9 c                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;
  B, F6 k% s9 x2 P       
9 W& c8 M6 {+ r2 A% j. S: i8 ?        print"ready.duration of the schedule:",scheduledorders.max({2,1}..{2,*});
7 z' G7 _9 }4 g/ n        mygantt;
        ens;