更新歷史：No.2

更新時(shí)間：2001-10-21 02:42

更新人員：Musicwind®

更新備注：修改格式。

更新歷史：No.1

更新時(shí)間：2001-10-19 21:15

更新人員：Musicwind®

更新備注：創(chuàng)建。

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

       前言：沉浸于Delphi已逾三載，可是每每翻閱Delphi的幫助文檔，還是會(huì)有許多收獲，于是不免感慨Delphi的博大！在慚愧之余，將些許心得和收獲整理，與諸位當(dāng)中如我般自大而學(xué)識(shí)尚淺者，共勉。

1.         什么是沉默的異常？（為什么不是沉默的羔羊？;-））

沉默的異常，即Slient Exceptions，指的是在缺省情況下不會(huì)出現(xiàn)討厭的消息提示框的異常類型：EAbort。在Object Pascal中，異常類EAbort是所有沉默的異常類的祖先類（而EAbort是繼承Exception而來(lái)）。引發(fā)(Raise)一個(gè)EAbort將導(dǎo)致一個(gè)執(zhí)行模塊的停止，直到有最外層的異常處理模塊截獲它，但是并不因此出現(xiàn)帶有紅色停止標(biāo)志的消息框。參考如下代碼：

      try

        ShowMessage('Hello1');

        Raise EAbort.Create('Abort it');

        ShowMessage('Hello2');

     except

       on E: Exception do

         showmessage('On Exception');

     end;

       執(zhí)行結(jié)果顯示兩個(gè)消息框，一個(gè)是”Hello1”，另一個(gè)是”O(jiān)n Exception”。這表明，EAbort確實(shí)發(fā)揮了作用，因?yàn)樗^(guò)了”ShowMessage(‘Hello2’)”這個(gè)語(yǔ)句；同時(shí)，沒(méi)有出現(xiàn)”Abort it”的消息框，也證實(shí)了EAbort異常類的不出現(xiàn)對(duì)話框的特點(diǎn)(在設(shè)計(jì)期間也是如此)；并且，消息框”O(jiān)n Exception”表明，雖然可能EAbort是個(gè)不同于普通異常的異數(shù)，但這并不妨礙我們沿用老的Try-Except語(yǔ)句來(lái)捕獲它。

2.         為什么要用EAbort？

EAbort在某些場(chǎng)合下很有用。比如當(dāng)我們需要終止某項(xiàng)操作，而又不希望讓用戶察覺(jué)（不想讓他們看到默認(rèn)的異常消息框）。當(dāng)然，要達(dá)到相同的效果，使用普通的異常也可以做到（比如使用Try-Except句型，將代碼放在Try段，需要終止操作則raise一個(gè)異常，而在Except段不寫(xiě)任何代碼），但是這一切沒(méi)有比使用EAbort來(lái)的簡(jiǎn)單又直接。

3.         有什么簡(jiǎn)便一點(diǎn)的嗎？――使用Abort過(guò)程

SysUtils單元中定義的一個(gè)過(guò)程Abort可以讓我們方便的使用EAbort。查看Abort的實(shí)現(xiàn)源碼：

    PRocedure Abort;

      function ReturnAddr: Pointer;

      asm

         MOV     EAX,[EBP + 4]

      end;

    begin

      raise EAbort.Create(SOperationAborted) at ReturnAddr;

    end;

       這里的SOperationAborted通常就是” Operation aborted”。

4.         揭開(kāi)面紗――實(shí)現(xiàn)原理

也許各位和我一樣，對(duì)于EAbort為什么是沉默的感到好奇。Delphi在其內(nèi)部，究竟對(duì)EAbort做了什么手腳呢？讓我們一起來(lái)看個(gè)究竟。

       打開(kāi)一個(gè)新的工程，點(diǎn)擊Find in Files，輸入”EAbort”關(guān)鍵字，然后選中Search in Directories單選框，并將Search Directory Options中的File Mask編輯框設(shè)置為Delphi源碼所在的目錄名（比如我的是：D:Program FilesBorlandDelphi6Source），同時(shí)別忘記給Include SubDirectory打勾。最后，點(diǎn)擊”O(jiān)K”開(kāi)始搜索。

       結(jié)果我們發(fā)現(xiàn)Delphi源碼中與EAbort有瓜葛的達(dá)17處之多。除去Sysutils單元中兩處對(duì)EAbort的聲明以及部分注釋語(yǔ)句，我們發(fā)現(xiàn)絕大多數(shù)代碼類似于：

       if ExceptObject is EAbort then

       以及：

       if not (E is EAbort) then

       等等。

       無(wú)一不是根據(jù)RTTI來(lái)對(duì)EAbort特殊對(duì)待的――原來(lái)EAbort的實(shí)現(xiàn)就這么簡(jiǎn)單！

       值得關(guān)注的兩個(gè)單元是：Forms(linux版本為QForms)和AppEvnts，在前者的代碼中我們更不難找到問(wèn)題的答案。參見(jiàn)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之區(qū)別

Abort和Break和Exit有些相似，又很不同。Break用來(lái)在循環(huán)語(yǔ)句中跳出一層循環(huán)。Exit用來(lái)跳出當(dāng)前執(zhí)行的函數(shù)體（或過(guò)程體）。Abort可以讓你跳出一層或者多層代碼段，直到有異常捕獲的代碼將它捕獲。

6.         自定義沉默的異常

與聲明一個(gè)普通異常類的子類相同，只需將EAbort及其子類作為祖先類即可：

TMyException = Class(EAbort);

TNextException = Class(EAbort);

等等。

Musicwind®@HangZhou.Zhejiang.China

2001-10-20

更多文章

 [文終]