雖然Delphi為應用程序提供了一套缺省的自動異常處理機制,即當前模塊發生錯誤後退出當前模塊並給出錯誤信息,而並不立即引起應用程序的中止。但當應用程序執行的過程性很強時,僅僅利用這種方法是不夠的,而且很容易導致程序執行的不可預測性。
12.1 Delphi異常處理機制與異常類
Delphi異常處理機制建立在保護塊(Protected Blocks)的概念上。所謂保護塊是用保留字try和end封裝的一段代碼。保護塊的作用是當應用程序發生錯誤時自動創建一個相應的異常類(Exception)。程序可以捕獲並處理這個異常類,以確保程序的正常結束以及資源的釋放和數據不受破壞。如果程序不進行處理,則系統會自動提供一個消息框。
異常類是Delphi異常處理機制的核心,也是Delphi異常處理的主要特色。下面我們對異常類的概念和體系進行詳細的介紹。
Delphi提供的所有異常類都是類Exception的子類。用戶也可以從Exception派生一個自定義的異常類。
Exception類的定義如下,對於不常用的成員沒有列出。
{SysUtils 單元中}
Exception = class(TObject)
private
FMessage: PString;
FHelpContext: Longint;
function GetMessage: String;
procedure SetMessage(const Value: String);
public
constructor Create(const Msg: String);
constructor CreateFmt(const Msg: String; const Args: array of const);. . .
destructor Destroy; override;
property HelpContext: Longint
property Message: String;
property MessagePtr: PString;
end;
Exception的一系列構造函數中最重要的參數是顯示的錯誤信息。而數據成員中最重要的也是可被引用的消息字符串(message,messagePtr)。 這些信息分別對自定義一個異常類和處理一個異常類有重要作用。
Delphi提供了一個很龐大的異常類體系,這些異常類幾乎涉及到編程的各個方面。從大的方面我們可以把異常類分為運行時間庫異常、對象異常、部件異常三類。下面我們分別進行介紹。
12.1.1 運行時間庫異常類(RTL Exception)
運行時間庫異常可以分為七類,它們都定義在SysUtils庫單元中。
12.1.1.1 I/O異常
I/O異常類EInOutError是在程序運行中試圖對文件或外設進行操作失敗後產生的,它從Exception派生後增加了一個公有數據成員ErrorCode,用於保存所發生錯誤的代碼。這一成員可用於在發生I/O異常後針對不同情況采取不同的對策。