一、Delphi自動處理異常的簡單例子

　　1.在Delphi(3.0)集成環境下，選Tools | Environment Options菜單 ，在出現的Environment
 Options窗口中的PReferences頁上有一個Break on exception選項（在左下部）。該選項在缺省
狀態下是被選中的，這樣在Delphi集成環境下運行程序若發生了異常，程序將自動被打斷而返回
Delphi調試狀態，光標停留在出現異常的代碼上，以便編程人員修改。現在單擊該選項使其不被
選中，然后確定。

　　2.新建一個工程，存為Excep.dpr（后面還有用），相應的單元存為Excpunit.pas；在Form1
中放入一個TmaskEdit構件，將其EditMask屬性設定為Date，再放入一個Tbutton構件，雙擊之，
編寫其OnClick事件如下：

　　procedure TForm1.BitBtn1Click(Sender: TObject);

　　var k:integer;

　　begin

　　k:=0;

　　k:=9 div k;{這里將產生一個被0除的異常}

　　end;

　　3.存盤并運行程序，在MaskEdit1中隨便寫入一兩個數字，回車，這時會產生（也稱為喚起）
一個異常，彈出如下窗口：

　　 這是由于在MaskEdit框中輸入的數據不完整而產生了異常，Delphi自動進行了處理，單擊
“確定”后程序繼續執行。單擊Button1按鈕，又會出現另一個類似窗口，因為這里出現了一個被
零除的異常。

　　二、Delphi對異常情況的提示是英文的，對中國人不太習慣，我們可以截獲這些異常，實現用
中文提示。具體做法如下：

　　1.修改Button1的OnClick事件如下：

　　procedure TForm1.BitBtn1Click(Sender: TObject);

　　var k:integer;

　　begin

　　 k:=0;

　　 try

　　 k:=9 div k;

　　 except

　　 showmessage(′除數不能為零′);

　　 end;

　　end;

　　2.存盤并運行程序，單擊Button1后出現的提示框將被中文的“除數不能為零”代替。利用
try......except......end語句是處理異常的一種常用方法，在保留字try后面的語句執行如果
出現異常，就執行保留字except與end間的語句，否則執行end后面的語句，從而代替了Delphi對
異常的缺省處理。與之類似的另一個語句是try......finally......end，與try......except..
....end不同的是，不管try后的語句會不會產生異常，finally后面的語句是一定會被執行的。

　　但是，對于像TmaskEdit框產生的這類異常，用try語句就顯得無能為力了，因為我們找不到
寫try語句的地方。我們只能用另一種方法來解決。

　　三、Delphi中的每一個項目都有一個Tapplication對象，這是一個不可見的對象。我們可以
通過修改它的OnException事件，來實現對特殊異常的控制，具體做法如下：

　　1?痹?Form1的類中聲明一個過程Myexception，該過程與Tapplication的OnException事件有
相同的參數：

　　public

　　{ Public declarations }

　　procedure MyException(Sender:TObject;E:Exception);

　　2.編寫該過程代碼：

　　procedure TForm1.MyException(Sender:TObject;E:Exception);

　　begin

　　if E is EDBEditError then showmessage(′輸入不符合規則′)

　　else

　　Application.ShowException(E); {調用缺省的異常處理}

　　end;

　　3.在Form1的OnCreate事件中為Tapplication的OnException事件賦值：

　　procedure TForm1.FormCreate(Sender: TObject);

　　begin

　　Application.OnException :=MyException;

　　end;

　　4．存盤并運行程序，在MaskEdit框中隨便輸入一兩個數字，回車，一個中文的提示框將取
代原來的英文提示框。

　　四、這里提醒大家注意三點：

　　1.Delphi把所有的異常歸納為一個類，即異常類（Exception），每一個特定的異常被視為
一個特例，在c:program filesorlandDelphi 3source tlsys目錄下的sysutils.pas中
有關于Exception類的定義。

　　2.Tapplication對象提供了一個過程HandleException來處理在程序中被喚起而未被處理的
異常事件，當我們為Tapplication的OnException事件賦值后，HandleException就會調用新的
過程來代替缺省的出錯信息顯示。我們可以在自己的過程中自由地安排顯示的內容，以達到漢
化的效果。

　　3.我們通過IF判斷語句來獲取指定的異常，用一個簡單的辦法可以得到指定異常的名稱。
回到文章開頭的那個例子，這里我們把Break on exception選項選中，再次運行程序，輸入
不當的數字使MaskEdit1產生異常，這時將出現下面的窗口：

　　窗口中第二排的EDBEditError就是該異常的名稱，本文程序中的代碼：

　　if E is EDBEditError then showmessage(′輸入不符合規定′)

　　就是根據這個名稱寫的。當不知道異常的確切名稱時，就可以從這里獲得信息。在用這種
方法處理異常事件時，一定要小心，應為你已經取代了Delphi的缺省的異常處理，如果處理不
當可能會使系統崩潰。

　　以上程序在Windows 95 Delphi 3.0下運行通過。