//例1:
begin
raise Exception.Create('抛出异常');
end;
--------------------------------------------------------------------------------
//例2:
begin
raise Exception.CreateFmt('%s %d', ['错误代码:', 999]);
end;
--------------------------------------------------------------------------------
//例3:
var
exc: Exception;
begin
exc := Exception.Create('发现异常');
raise exc;
end;
---------------------------------------------------------------------------------
Abort //激发异常退出,如果在 try 块中,except 和 finally 的程序会执行
Exit //正常退出,如果在 try 块中,except 和 finally 的程序会执行
Halt //非正常结束程序,可有 Integer 参数给操作系统,windows 程序一般使用:Application.Terminate
RunError //生成一个运行时错误,并退出程序。参数是 Byte 型,默认0
Continue //结束当前循环进入下一循环
Break //结束循环
Sleep //暂停多少毫秒
原创文章如转载,请注明:转载自心动吧DELPHI网络书 [ http://www.abcxd.com/delphi/ ]
本文链接地址:http://www.abcxd.com/delphi/abcxddelphi/DELPHIVCLCZ/raise.html