第十二章-异常处理与程序调试（二）（2）

第十二章-异常处理与程序调试（二）（2）2007-05-0712.3.3 响应一族异常

诸如

on ExceptionType do

的异常响应语句不仅可响应本类异常，而且可以响应子类异常。对于象EIntError、EMathError等系统不会引发的异常，它们将只响应其子类异常。而对于象

on Exception do

这样的语句将会对任何异常进行响应。

下面一段代码对整数越界异常进行单独处理，而对其它整数异常进行统一处理：

try

{整数运算}

except

on ERangeError do

{越界处理}

on EIntError do

{其它整数异常处理}

end;

由于异常在处理后即被清除，因而上面的代码可保证不会使ERangeError异常被多次处理。假如颠倒两条响应语句的顺序，则ERangeError异常响应将永远没有被执行的机会。

由于异常在处理后即被清除，因而当希望对异常进行多次处理时就需要使用保留字raise来重引发一个当前异常。

下面的代码同时使用了异常响应和异常保护。异常响应用于设置变量的值，异常保护用于释放资源。当异常响应结束时利用raise重引发一个当前异常。

var

APointer: Pointer ;

AInt , ADiv: Integer;

begin

ADiv := 0;

GetMem （ APointer , 1024 ）;

try

AInt := 10 div ADiv ;

except

on EDivByZero do

begin

AInt := 0 ;

raise;

end;

finally

FreeMem （ APointer , 1024 ）;

end;

上面一段代码体现了异常处理的嵌套。异常保护、异常响应可以单独嵌套也可以如上例所示的那样相互嵌套。

12.3.5 自定义异常类的应用

利用Delphi的异常类机制我们可以定义自己的异常类来处理程序执行中的异常情况。同标准异常不同的是：这种异常情况并不是相对于系统的正常运行，而是应用程序的预设定状态。比如输入一个非法的口令、输入数据值超出设定范围、计算结果偏离预计值等等。

使用自定义异常需要：

1.自己定义一个异常对象类；

2.自己引发一个异常。