不能在waituntil的statement中访问table

xiongbing2010

我写的一个程序想实现在IObuffer中的MU按时刻表exit，若需要exit的时候IObuffer中没有MU，那一旦IObuffer中有MU就立即exit。IObuffer的名字是zhuZhan，程序如下：
is       
do       
' `4 i. {6 E. W* N( ]        waituntil EventController.simTime = Schedule[now_depart_num];
        if zhuZhan.empty = false
% [* o9 i6 \7 I2 U. K' x5 R- v! _        then
                zhuZhan[1].move();
( q: Y# |* O  `% B# o                now_depart_num = now_depart_num + 1;               
; |, i% I+ J' t% V- b* K        else
( h8 L  R0 h5 a& Q; L7 \7 \                waituntil zhuZhan.empty = false;
# D4 r0 A% x7 G, \: i& P                zhuZhan[1].move();
3 U3 |+ D) C3 }1 _; Y3 b7 M                now_depart_num = now_depart_num + 1;
        end;                                       
end;
- e3 [% M* `4 s0 e" l- \
但是一直说有错误，提示信息是：access to tables is not allowed within a waituntil statement.
若是增加一个局部变量，如下：
" ~4 X- M5 z+ j+ E9 C) m3 k3 bis
8 T1 t9 e- {- F7 g# \              depart_time : time;
do
              depart_time := schedule[now_depart_num];
) ^1 X4 r" y" R0 x              waituntil EventController.simTime = depart_time;
/ F; u0 _( ~1 o( C  E6 }* A              。。。
9 h: w5 V& R$ D8 W2 p又会出现syntax error near line 5 at <;>!

各位大侠帮帮忙，或者教我怎么改程序的错误，或者教教我用别的方法实现我的目的，谢谢了！

SimChen

waituntil 有很多限制条件，监控variable是可以的，表格好像是不行的。另外，这个命令对程序的performance有很大影响，能不用就尽量不要用。有一个技巧，通过不断循环的方式来实现时间点的控制。
) s3 A) h) O( k) H3 A
- p+ I4 g8 h6 T  Q  k+ y1 N9 r# Mnow_depart_num := 1;
begin_time := 0;
while 1 = 1 loop
6 G  }2 G0 [; [' M3 P1 p" j+ r( O5 W depart_time := schedule[now_depart_num];
wait depart_time - begin_time;
7 s8 M  k$ v, Y9 A ....
% X0 y' f/ T, K7 K% b0 s! \8 k4 a
begin_time := depart_time;
8 |+ x4 g" e) ]) |0 K3 M( R; l. d now_depart_num := now_depart_num + 1;
9 J2 M0 w  _& B2 w4 q7 B9 C  Uend;

xiongbing2010

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

SimChen

我尽量用你的变量定义,增加了一个begin_time
: z3 }: |- F; ~3 Q: G; xdepart_time和begin_time的差就是要等待的时间，也就是表格相邻两行定义的时间
- W* c0 j/ y% J7 c每次等待以后把now_depart_num增加1，表格就往下走一行。
( a6 ?* a" V+ r) S
另外，这个程序原则上由Init调用，所以起始时间是0，然后每次等待后上一个终止点就是下一个起始点。