亲亲宝宝

定义一个异常处理类 ，把应用程序为处理的异常全部让它来处理。
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了，非常容易。