截获Delphi中的异常

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

所谓异常,就是指在程序运行过程中,由于程序本身的问题或是用户的不当操做而造成的暂

停程序执行和出现错误结果的情况。用Delphi编写过程序的人对异常肯定不会陌生。异常的来源

是多方面的,引用空指针、赋值越界、被零除等都可以引发一个异常。如果对异常事件不进行适

当的处理,很可能导致整个程序的崩溃。好在Delphi对可能出现的几乎所有的异常都能自动进行

处理。

一、Delphi自动处理异常的简单例子

1.在Delphi(3.0)集成环境下,选Tools | Environment Options菜单 ,在出现的Environment

Options窗口中的Preferences页上有一个Break on exception选项(在左下部)。该选项在缺省

状态下是被选中的,这样在Delphi集成环境下运行程序若发生了异常,程序将自动被打断而返回

Delphi调试状态,光标停留在出现异常的代码上,以便编程人员修改。现在单击该选项使其不被

选中,然后确定。

2.新建一个工程,存为Excep.dpr(后面还有用),相应的单元存为Excpunit.pas;在Form1

中放入一个TmaskEdit构件,将其EditMask属性设定为Date,再放入一个Tbutton构件,双击之,

编写其OnClick事件如下:

procedure TForm1.BitBtn1Click(Sender: TObject);

var k:integer;

begin

k:=0;

k:=9 div k;{这里将产生一个被0除的异常}

end;

3.存盘并运行程序,在MaskEdit1中随便写入一两个数字,回车,这时会产生(也称为唤起)

一个异常,弹出如下窗口:

这是由于在MaskEdit框中输入的数据不完整而产生了异常,Delphi自动进行了处理,单击

“确定”后程序继续执行。单击Button1按钮,又会出现另一个类似窗口,因为这里出现了一个被

零除的异常。

二、Delphi对异常情况的提示是英文的,对中国人不太习惯,我们可以截获这些异常,实现用

中文提示。具体做法如下:

1.修改Button1的OnClick事件如下:

procedure TForm1.BitBtn1Click(Sender: TObject);

var k:integer;

begin

k:=0;

try

k:=9 div k;

except

showmessage(′除数不能为零′);

end;

end;

2.存盘并运行程序,单击Button1后出现的提示框将被中文的“除数不能为零”代替。利用

try......except......end语句是处理异常的一种常用方法,在保留字try后面的语句执行如果

出现异常,就执行保留字except与end间的语句,否则执行end后面的语句,从而代替了Delphi对

异常的缺省处理。与之类似的另一个语句是try......finally......end,与try......except..

....end不同的是,不管try后的语句会不会产生异常,finally后面的语句是一定会被执行的。

但是,对于像TmaskEdit框产生的这类异常,用try语句就显得无能为力了,因为我们找不到

写try语句的地方。我们只能用另一种方法来解决。

三、Delphi中的每一个项目都有一个Tapplication对象,这是一个不可见的对象。我们可以

通过修改它的OnException事件,来实现对特殊异常的控制,具体做法如下:

1在Form1的类中声明一个过程Myexception,该过程与Tapplication的OnException事件有

相同的参数:

public

{ Public declarations }

procedure MyException(Sender:TObject;E:Exception);

2.编写该过程代码:

procedure TForm1.MyException(Sender:TObject;E:Exception);

begin

if E is EDBEditError then showmessage(′输入不符合规则′)

else

Application.ShowException(E); {调用缺省的异常处理}

end;

3.在Form1的OnCreate事件中为Tapplication的OnException事件赋值:

procedure TForm1.FormCreate(Sender: TObject);

begin

Application.OnException :=MyException;

end;

4.存盘并运行程序,在MaskEdit框中随便输入一两个数字,回车,一个中文的提示框将取

代原来的英文提示框。

四、这里提醒大家注意三点:

1.Delphi把所有的异常归纳为一个类,即异常类(Exception),每一个特定的异常被视为

一个特例,在c:\program files\borland\Delphi 3\source\rtl\sys\目录下的sysutils.pas中

有关于Exception类的定义。

2.Tapplication对象提供了一个过程HandleException来处理在程序中被唤起而未被处理的

异常事件,当我们为Tapplication的OnException事件赋值后,HandleException就会调用新的

过程来代替缺省的出错信息显示。我们可以在自己的过程中自由地安排显示的内容,以达到汉

化的效果。

3.我们通过IF判断语句来获取指定的异常,用一个简单的办法可以得到指定异常的名称。

回到文章开头的那个例子,这里我们把Break on exception选项选中,再次运行程序,输入

不当的数字使MaskEdit1产生异常,这时将出现下面的窗口:

窗口中第二排的EDBEditError就是该异常的名称,本文程序中的代码:

if E is EDBEditError then showmessage(′输入不符合规定′)

就是根据这个名称写的。当不知道异常的确切名称时,就可以从这里获得信息。在用这种

方法处理异常事件时,一定要小心,应为你已经取代了Delphi的缺省的异常处理,如果处理不

当可能会使系统崩溃。

以上程序在Windows 95 Delphi 3.0下运行通过。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航