截获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下运行通过。