2011计算机等考Delphi讲义：异常处理与程序调试

　　12.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

　　try

　　AInt := 10 div ADiv ;

　　except

　　on EDivByZero do

　　begin

　　AInt := 0 ;

　　raise;

　　end;

　　end;

　　finally

　　FreeMem ( APointer , 1024 );

　　end;

　　end;

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