存档

2008年1月 的存档

如何退出Repeat循环

2008年1月24日 没有评论

在Navision中,并没有直接的Exit来进行中断循环。

所以采用下面的方法:

ExitTrue:=False;

Repeat

If xxxx then

ExitTrue:=True;

Until (xx.next=0) or (ExitTrue)

Repeat .. Until 相当于是直到条件为True时退出循环,而While刚好相反。

这样就可以实现强制退出循环,另外While 也可以采用同样方法实现。

While 当条件为True时 Do

Begin

循环体

End;

分类: C/AL 标签: