一、異常的來源。

在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機制也沒能夠回避在最原始的層次，通過遍歷可能的情況來產生異常的做法，那么，為什么還要異常機制？

答案很清楚：異常提供了一種更加靈活和開放的方式，使得后來的編程者可以來根據實際的情況處理這種錯誤，而不是使用預先設定好的處理結果。實際上，我覺得，這也就是異常機制的核心。