delphi有没有象VB那样,在过程开头on error,然后就可以捕捉到此后所有错误的办法?

8341 2002-08-03 05:26:09
我觉得VB的错误捕捉挺好。
...全文
19 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
BES 2002-08-03
  • 打赏
  • 举报
回复

procedure TMainForm.FormCreate(Sender: TObject);
begin
GlobalExHandler:=TGlobalExHandler.Create;
Application.OnException := GlobalExHandler.HandlerProc;

end;

procedure TGlobalExHandler.HandlerProc(Sender: TObject; EInstance: Exception);
begin
if (EInstance is EDBEngineError) then
begin
case (EInstance as EDBEngineError).Errors[0].Errorcode of
9729:
...
else
...
end
else
...
end;
haoco 2002-08-03
  • 打赏
  • 举报
回复
有啊比VB还好呢:

try
//正常语句;
except
//错误处理语句;
end;

如果在 //正常语句 中有错误的话,程序就会生动跳到 //错误处理语句 来执行
zhwquan 2002-08-03
  • 打赏
  • 举报
回复
当然有,例如:
try

X := Y/Z;
except
on EZeroDivide do HandleZeroDivide;
end;
eulb 2002-08-03
  • 打赏
  • 举报
回复
据我所知是没有的
只能用
try except
and
try finally

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧