截获Delphi中的异常

2008-04-09 04:31:00来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折


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

  

  

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:COM/DCOM中如何传递数组:

下一篇:动态贺卡EXE生成器---Delphi中流的应用(9)