用历程辅助实现流程控制

用过程辅助实现流程控制

Object Pascal 定义以下几个过程来辅助流程控制：
1. procedure Abort;
激发一个静态异常（即异常信息不显示）并退出当前过程或者 try?except 块。例如：

var   I: Integer; begin   for I := 0 to 2 do   begin     try       if I > 0 then         Break;       ShowMessage(IntToStr(I));     finally       ShowMessage('finally');     end;   end; end; 

?上面例子的执行结果是：首先分别显示一次 I 和'finally'（对应 I=0），然后显示一次'finally'（对应
I=1）。
注意：如果使用了嵌套循环（即循环中包含子循环），那么 Continue 和 Break 只对它所属的子循
环起作用。