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;

　　上面一段代碼體現了異常處理的嵌套。異常保護、異常響應可以單獨嵌套也可以如上例所示的那樣相互嵌套。