截获Delphi中的异常计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:29:28
来源 100Test.Com百考试题网

　　所谓异常，就是指在程序运行过程中，由于程序本身的问题或是用户的不当操做而造成的暂停程序执行和出现错误结果的情况。用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框中随便输入一两个数字，回车，一个中文的提示框将取代原来的英文提示框。