不能在waituntil的statement中访问table

xiongbing2010

我写的一个程序想实现在IObuffer中的MU按时刻表exit，若需要exit的时候IObuffer中没有MU，那一旦IObuffer中有MU就立即exit。IObuffer的名字是zhuZhan，程序如下：
is       
do       
        waituntil EventController.simTime = Schedule[now_depart_num];
+ d5 N0 _: @( s, ]! r: e        if zhuZhan.empty = false
        then
1 J) z/ _- L( n                zhuZhan[1].move();
                now_depart_num = now_depart_num + 1;               
        else
                waituntil zhuZhan.empty = false;
3 `) Y/ r7 E( t" b  z) Y4 [  h                zhuZhan[1].move();
                now_depart_num = now_depart_num + 1;
1 K1 [  T7 x' K" O        end;                                       
end;
) D! i5 h- w, ]
但是一直说有错误，提示信息是：access to tables is not allowed within a waituntil statement.
若是增加一个局部变量，如下：
is
              depart_time : time;
do
              depart_time := schedule[now_depart_num];
7 e/ J# _+ t) X3 i              waituntil EventController.simTime = depart_time;
              。。。
又会出现syntax error near line 5 at <;>!

# z; K" k) D6 P, r1 y) m& ^各位大侠帮帮忙，或者教我怎么改程序的错误，或者教教我用别的方法实现我的目的，谢谢了！

SimChen

waituntil 有很多限制条件，监控variable是可以的，表格好像是不行的。另外，这个命令对程序的performance有很大影响，能不用就尽量不要用。有一个技巧，通过不断循环的方式来实现时间点的控制。
, j5 }2 D6 p( }$ n6 v7 K
# r) I- I( q% M' D& }1 inow_depart_num := 1;
begin_time := 0;
! r, P. ]  p- l% P. W* S0 O# K7 Z3 E3 Gwhile 1 = 1 loop
2 l1 w/ L6 R+ F7 l& O6 ^) ^ depart_time := schedule[now_depart_num];
) W+ }4 H% f4 T0 E, a wait depart_time - begin_time;
....
+ f0 A7 A0 u, z9 e2 m
' M% s) t# s) J6 q- a8 } begin_time := depart_time;
! C$ a0 |- l/ x9 C+ G; j now_depart_num := now_depart_num + 1;
- V5 M: i; c5 v3 N4 ~4 c, ^end;

xiongbing2010

回复 2# SimChen谢谢楼上热心指导，只是我还是没有太明白，尤其是begin_time在程序中是起什么作用的？它是怎么从0变成now_depart_time的?

SimChen

我尽量用你的变量定义,增加了一个begin_time
! c" I( S9 h* e0 C5 n, h4 cdepart_time和begin_time的差就是要等待的时间，也就是表格相邻两行定义的时间
- O) I/ Z/ D$ B3 F; {1 c1 }每次等待以后把now_depart_num增加1，表格就往下走一行。

% X6 G% m2 |" A0 u另外，这个程序原则上由Init调用，所以起始时间是0，然后每次等待后上一个终止点就是下一个起始点。