Delphi异常处理的基本原则和方法

======================================================
注：本文源代码点此下载
======================================================

一、异常的来源。

在delphi的应用程序中,下列的情况都比较有可能产生异常。

(1)文件处理

(2)内存分配

(3)windows资源

(4)运行时创建对象和窗体

(5)硬件和操作系统冲突

二、异常的处理。

(1)try…except…end;

在try体内的代码发生异常时,系统将转向except部分进行异常的处理。这是delphi处理异常的最基本的方式之一。

(2)try…finally…end;

这种异常处理结构一般用于保护windows的资源分配等方面,它确保了无论try体内的代码是否发生异常,都需要由系统进行最后的统一处理的一些windows对象的正确处理。

和try…except…end不同,该结构的finally部分总被执行。

(3)不存在try…except…finally…end结构来既处理异常,又保护资源分配的结构,但是,try…except…end结构允许嵌套到try…finally…end结构中,从而实现既处理异常,又保护资源的分配。

三、异常的精确处理。

(1)定义一个异常。

在delphi中,每个异常都是exception[1]类的一个派生类[2]。因此,定义一个异常就是定义一个exception类的派生类。

type emyexception = class(exception);

当然,基类可以是exception或者exception的任何一个任何层次的派生类。

(2)在程序中抛出一个异常。

根据不同的情况抛出异常是使用异常的最基本的模式。在delphi中,由raise语句来实现。

【语法】raise 异常类.create(‘异常的缺省说明’);

(3)在try…except…end中更加精确的捕捉异常。

使用on e:异常类 do…结构可以在do体内处理特定异常类所抛出的异常。

四、异常的调试。

在delphi ide中,解除“debugger options”(可以使用菜单tools—>debugger options…进行访问)中的integrated debugging复选框的勾选状态可以进行异常的调试。

五、异常的补充说明。

(1)每一段程序都有可能产生错误!这是软件业的一个不容置疑的现象和规律。事实上,传统的if…else…结构完全可以解决所有的错误,使用exception机制也没能够回避在最原始的层次,通过遍历可能的情况来产生异常的做法,那么,为什么还要异常机制?

答案很清楚:异常提供了一种更加灵活和开放的方式,使得后来的编程者可以来根据实际的情况处理这种错误,而不是使用预先设定好的处理结果。实际上,我觉得,这也就是异常机制的核心。

[1] exception类的定义在sysutils单元中。

[2] delphi也支持不从exception继承的异常类,但是我觉得这么做并不十分的明智。

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/