截获Delphi中的异常

核心提示：所谓异常，就是指在程序运行过程中，截获Delphi中的异常，由于程序本身的问题或是用户的不当操做而造成的暂停程序执行和出现错误结果的情况，用Delphi编写过程序的人对异常肯定不会陌生，应为你已经取代了Delphi的缺省的异常处理，如果处理不当可能会使系统崩溃，异常的来源是多方面的，引用空指针、赋值越界、被零除等都可以

所谓异常，就是指在程序运行过程中，由于程序本身的问题或是用户的不当操做而造成的暂
停程序执行和出现错误结果的情况。用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 filesorlandDelphi 3source tlsys目录下的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下运行通过。