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