精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Object Pascal语言>>自定义错误捕捉信息

主题:自定义错误捕捉信息
发信人: plenilune88(望月)
整理人: teleme(2002-03-07 21:01:02), 站内信件
Application对象的OnException事件可以捕捉所有应用程序中未处理的错误,  
用一个自定义函数重定向Application.OnException,然后在该函数中的E参数可以返回应用程序错误的对象,判断英文错误代码是否包含在E.Message决定是否用对应中文提示代替。当然,可以使用自定义的消息窗体显示。  

procedure TForm1.HandleError(Sender: TObject; E: Exception);  
begin  
  if pos('Can not link database',E.Message)>0 then  
  begin  
    showmessage('不能连接数据库!');  //可以用字定义窗体显示  
    exit;  
  end;  

  if pos('TCP/IP……',E.Message)>0 then  
  begin  
    showmessage('网络故障,不能连接数据库!');  //可以用字定义窗体显示  
    exit;  
  end;  

  ……  

end;  

procedure TForm1.FormCreate(Sender: TObject);  
begin  
  Application.OnException:=HandleError;  
end;  



----
                .-'''''-.
             .'         `.
            :             :
           :               :
           :      _/|      :
            :   =/_/      :
             `._/ |     .'
          (   /  ,|...-'
           \_/^\/||__
        _/~  `""~`"` \_
     __/  -'/  `-._ `\_\__
   /     /-'`  `\   \  \-.\ 

孤意望月 血泪无痕 

http://plenilune.top263.net
http://www.cnflag.net  

[关闭][返回]