更新歷史：No.2
更新時間：2001-10-21 02:42
更新人員：Musicwind®
更新備注：修改格式。
更新歷史：No.1
更新時間：2001-10-19 21:15
更新人員：Musicwind®
更新備注：創建。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
前言：沉浸于Delphi已逾三載，可是每每翻閱Delphi的幫助文檔，還是會有許多收獲，于是不免感慨Delphi的博大！在慚愧之余，將些許心得和收獲整理，與諸位當中如我般自大而學識尚淺者，共勉。
1. 什么是沉默的異常？（為什么不是沉默的羔羊？;-））
沉默的異常，即Slient Exceptions，指的是在缺省情況下不會出現討厭的消息提示框的異常類型：EAbort。在Object Pascal中，異常類EAbort是所有沉默的異常類的祖先類（而EAbort是繼承Exception而來）。引發(Raise)一個EAbort將導致一個執行模塊的停止，直到有最外層的異常處理模塊截獲它，但是并不因此出現帶有紅色停止標志的消息框。參考如下代碼：
try
ShowMessage('Hello1');
Raise EAbort.Create('Abort it');
ShowMessage('Hello2');
except
on E: Exception do
showmessage('On Exception');
end;
執行結果顯示兩個消息框，一個是”Hello1”，另一個是”On Exception”。這表明，EAbort確實發揮了作用，因為它跳過了”ShowMessage(‘Hello2’)”這個語句；同時，沒有出現”Abort it”的消息框，也證實了EAbort異常類的不出現對話框的特點(在設計期間也是如此)；并且，消息框”On Exception”表明，雖然可能EAbort是個不同于普通異常的異數，但這并不妨礙我們沿用老的Try-Except語句來捕獲它。
2. 為什么要用EAbort？
EAbort在某些場合下很有用。比如當我們需要終止某項操作，而又不希望讓用戶察覺（不想讓他們看到默認的異常消息框）。當然，要達到相同的效果，使用普通的異常也可以做到（比如使用Try-Except句型，將代碼放在Try段，需要終止操作則raise一個異常，而在Except段不寫任何代碼），但是這一切沒有比使用EAbort來的簡單又直接。
3. 有什么簡便一點的嗎？――使用Abort過程
SysUtils單元中定義的一個過程Abort可以讓我們方便的使用EAbort。查看Abort的實現源碼：
PRocedure Abort;
function ReturnAddr: Pointer;
asm
MOV EAX,[EBP + 4]
end;
begin
raise EAbort.Create(SOperationAborted) at ReturnAddr;
end;
這里的SOperationAborted通常就是” Operation aborted”。
4. 揭開面紗――實現原理
也許各位和我一樣，對于EAbort為什么是沉默的感到好奇。Delphi在其內部，究竟對EAbort做了什么手腳呢？讓我們一起來看個究竟。
打開一個新的工程，點擊Find in Files，輸入”EAbort”關鍵字，然后選中Search in Directories單選框，并將Search Directory Options中的File Mask編輯框設置為Delphi源碼所在的目錄名（比如我的是：D:Program FilesBorlandDelphi6Source），同時別忘記給Include SubDirectory打勾。最后，點擊”OK”開始搜索。
結果我們發現Delphi源碼中與EAbort有瓜葛的達17處之多。除去Sysutils單元中兩處對EAbort的聲明以及部分注釋語句，我們發現絕大多數代碼類似于：
if ExceptObject is EAbort then
以及：
if not (E is EAbort) then
等等。
無一不是根據RTTI來對EAbort特殊對待的――原來EAbort的實現就這么簡單！
值得關注的兩個單元是：Forms(linux版本為QForms)和AppEvnts，在前者的代碼中我們更不難找到問題的答案。參見Delphi源碼：
procedure Tapplication.HandleException(Sender: TObject);
begin
if GetCapture <> 0 then SendMessage(GetCapture, WM_CANCELMODE, 0, 0);
if ExceptObject is Exception then
begin
if not (ExceptObject is EAbort) then
if Assigned(FOnException) then
FOnException(Sender, Exception(ExceptObject))
else
ShowException(Exception(ExceptObject));
end else
SysUtils.ShowException(ExceptObject, ExceptAddr);
end;
5. Abort與Break和Exit之區別
Abort和Break和Exit有些相似，又很不同。Break用來在循環語句中跳出一層循環。Exit用來跳出當前執行的函數體（或過程體）。Abort可以讓你跳出一層或者多層代碼段，直到有異常捕獲的代碼將它捕獲。
6. 自定義沉默的異常
與聲明一個普通異常類的子類相同，只需將EAbort及其子類作為祖先類即可：
TMyException = Class(EAbort);
TNextException = Class(EAbort);
等等。
Musicwind®@HangZhou.Zhejiang.China
2001-10-20
[文終]
新聞熱點
疑難解答
圖片精選
