首页 > delphi > delphi中为应用程序添加友好错误提示

delphi中为应用程序添加友好错误提示

2008年5月8日 发表评论 阅读评论

定义一个异常处理类 ,把应用程序为处理的异常全部让它来处理。
TMyexception =class
public
procedure AppException(Sender: TObject; E: Exception);
end;
procedure TMyexception.AppException(Sender: TObject; E: Exception);
begin
if pos(‘ora-‘,LowerCase(e.Message)) =1 then
remindMSN(‘数据异常!’)
else if e is ESoapHttpException then
remindMSN(‘网络不正常!’)
else
remindMSN(e.Message);
end;

Application.OnException :=GApplicationException.AppException;
GApplicationException为TMyexception 的一个对象实例,真样就OK了,非常容易。

分类: delphi 标签: 1,877 次阅读
原文链接:http://www.wenhq.com/article/view_210.html
欢迎转载,请注明出处:亲亲宝宝
  1. 本文目前尚无任何评论.
  1. 本文目前尚无任何 trackbacks 和 pingbacks.