强制退出

Question

delphi Exit(强制退出程序块)语句 
       Halt(强制终止程序执行)语句
       Runerror(停止程序执行并产生运行错误)语句分别怎么写？各位大侠 帮忙！！

Answer 1

show modal 如何用呢？？

Answer 2

(1)
begin
...
  if xxx then Exit;
...
end;(2)
Halt的定义：
procedure Halt({ExitValue : Integer});调用方法：
ErrorAddr := Addr(i);
ExitCode := 4;
Halt(ExitCode);
ShowMessage('Error Message');如果指定ErrorAddr，那么Halt时就这样显示。
Runtime error ExitCode at ErrorAddr(3)
Runerror的定义：
procedure RunError({ExitValue : Integer});调用同Halt，如果直接
RunError;
那么ExitCode就为0。