2011計(jì)算機(jī)等考Delphi講義：異常處理與程序調(diào)試

　　12.3.5 自定義異常類(lèi)的應(yīng)用

　　利用Delphi的異常類(lèi)機(jī)制我們可以定義自己的異常類(lèi)來(lái)處理程序執(zhí)行中的異常情況。同標(biāo)準(zhǔn)異常不同的是：這種異常情況并不是相對(duì)于系統(tǒng)的正常運(yùn)行，而是應(yīng)用程序的預(yù)設(shè)定狀態(tài)。比如輸入一個(gè)非法的口令、輸入數(shù)據(jù)值超出設(shè)定范圍、計(jì)算結(jié)果偏離預(yù)計(jì)值等等。

　　使用自定義異常需要：

　　1.自己定義一個(gè)異常對(duì)象類(lèi);

　　2.自己引發(fā)一個(gè)異常。

　　12.3.5.1 定義異常對(duì)象類(lèi)

　　異常是對(duì)象，所以定義一類(lèi)新的異常同定義一個(gè)新的對(duì)象類(lèi)型并無(wú)太大區(qū)別。由于缺省異常處理只處理從Exception或Exception子類(lèi)繼承的對(duì)象，因而自定義異常類(lèi)應(yīng)該作為Exception或其它標(biāo)準(zhǔn)異常類(lèi)的子類(lèi)。這樣，假如在一個(gè)模塊中引發(fā)了一個(gè)新定義的異常，而這個(gè)模塊并沒(méi)有包含對(duì)應(yīng)的異常響應(yīng)，則缺省異常處理機(jī)制將響應(yīng)該異常，顯示一個(gè)包含異常類(lèi)名稱(chēng)和錯(cuò)誤信息的消息框。

　　下面是一個(gè)異常類(lèi)的定義：

　　type

　　EMyException = Class(Exception) ;

　　12.3.5.2 自引發(fā)異常

　　引發(fā)一個(gè)異常，調(diào)用保留字raise，后邊跟一個(gè)異常類(lèi)的實(shí)例。

　　假如定義：

　　type

　　EPasswordInvalid = Class(Exception);

　　則在程序中如下的語(yǔ)句將引發(fā)一個(gè)EPasswordInvalid異常：

　　If Password <> CorrectPassword then

　　raise EPasswordInvalid.Create('Incorrect Password entered');

　　異常產(chǎn)生時(shí)把System庫(kù)單元中定義的變量ErrorAddr的值置為應(yīng)用程序產(chǎn)生異常處的地址。在你的異常處理過(guò)程中可以引用ErrorAddr的值。

　　在自己引發(fā)一個(gè)異常時(shí)，同樣可以為ErrorAddr分配一個(gè)值。

　　為異常分配一個(gè)錯(cuò)誤地址需要使用保留字at，使用格式如下：

　　raise EInstance at Address_Expession;

　　12.3.5.3 自定義異常的應(yīng)用舉例

　　下面我們給出一個(gè)利用自定義異常編程的完整實(shí)例。

　　兩個(gè)標(biāo)簽框(Label1、Label2)標(biāo)示對(duì)應(yīng)編輯框的功能。編輯框PassWord和InputEdit用于輸入口令和數(shù)字。程序啟動(dòng)時(shí)Label2、InputEdit不可見(jiàn)。當(dāng)在PassWord中輸入正確的口令時(shí)，Label2、InputBox出現(xiàn)在屏幕上。此時(shí)Label1、PassWord隱藏。

　　設(shè)計(jì)時(shí)，令Label2、InputEdit的Visible屬性為False。通過(guò)設(shè)置PassWord的PassWordChar可以確定輸入口令時(shí)回顯在屏幕上的字符。

　　自定義異常EInvalidPassWord和EInvalidInput分別用于表示輸入的口令非法和數(shù)字非法。它們都是自定義異常EInValidation的子類(lèi)。而EInValidation直接從Exception異常類(lèi)派生。

　　下面是三個(gè)異常類(lèi)的定義。

　　type

　　EInValidation = class(Exception)

　　public

　　ErrorCode: Integer;

　　constructor Create(Const Msg: String;ErrorNum: Integer);

　　end;

　　EInvalidPassWord = class(EInValidation)

　　public

　　constructor Create;

　　end;

　　EInvalidInput = class(EInValidation)

　　public

　　constructor Create(ErrorNum: Integer);

　　end;

　　EInValidation增加了一個(gè)公有成員ErrorCode來(lái)保存錯(cuò)誤代碼。錯(cuò)誤代碼的增加提供了很大的編程靈活性。對(duì)于異常類(lèi)，可以根據(jù)錯(cuò)誤代碼提供不同的錯(cuò)誤信息;對(duì)于使用者可以通過(guò)截取錯(cuò)誤代碼，在try...except模塊之外來(lái)處理異常。

　　從以上定義可以發(fā)現(xiàn)：EInvalidPassWord和EInvalidInput的構(gòu)造函數(shù)參數(shù)表中沒(méi)有表示錯(cuò)誤信息的參數(shù)。事實(shí)上，它們保存在構(gòu)造函數(shù)內(nèi)部。下面是三個(gè)自定義異常類(lèi)構(gòu)造函數(shù)的實(shí)現(xiàn)代碼。

　　constructor EInValidation.Create(Const Msg: String; ErrorNum: Integer);

　　begin

　　inherited Create(Msg);

　　ErrorCode := ErrorNum;

　　end;

　　constructor EInValidPassWord.Create;

　　begin

　　inherited Create('Invalid Password Entered',0);

　　end;

　　constructor EInValidInput.Create(ErrorNum: Integer);

　　var

　　Msg: String;

　　begin

　　case ErrorNum of

　　1:

　　Msg := 'Can not convert String to Number';

　　2:

　　Msg := 'Number is out of Range';

　　else

　　Msg := 'Input is Invalid';

　　end;

　　inherited Create(Msg,ErrorNum);

　　end;

　　對(duì)于EInvalidInput，ErrorCode=1表示輸入的不是純數(shù)字序列，而ErrorCode=2表示輸入數(shù)值越界。

　　口令檢查是用戶(hù)在PassWord中輸入口令并按下回車(chē)鍵后開(kāi)始的。實(shí)現(xiàn)代碼在PassWord的OnKeyPress事件處理過(guò)程中：

　　procedure TForm1.PassWordKeyPress(Sender: TObject; var Key: Char);

　　const

　　CurrentPassWord = 'Delphi';

　　begin

　　if Key = #13 then

　　begin

　　try

　　if PassWord.text <> CurrentPassWord then

　　raise EInvalidPassWord.Create;

　　Label2.Visible := True;

　　InputEdit.Visible := True;

　　InputEdit.SetFocus;

　　PassWord.Visible := False;

　　Label1.Visible := False;

　　except

　　on EInvalidPassWord do

　　begin

　　PassWord.text := '';

　　raise;

　　end;

　　end;

　　Key:=#0;

　　end;

　　end;

　　同樣，在InputEdit的OnKryPress事件處理過(guò)程中實(shí)現(xiàn)了輸入數(shù)字的合法性檢查：

　　procedure TForm1.InputEditKeyPress(Sender: TObject; var Key: Char);

　　var

　　Res: Real;

　　Code: Integer;

　　begin

　　if Key = #13 then

　　begin

　　try

　　val(InputEdit.text,Res,Code);

　　if Code <> 0 then

　　raise EInValidInput.create(1);

　　if (Res > 1) or (Res < 0) then

　　raise EInValidInput.create(2);

　　MessageDlg('Correct Input', mtInformation,[mbOk], 0);

　　Key := #0;

　　except

　　on E:EInValidInput do

　　begin

　　InputEdit.text := '';

　　MessageDlg(E.Message, mtWarning,[mbOk], 0);

　　end;

　　end;

　　end;

　　end;

　　由于異常響應(yīng)后即被清除，所以要顯示異常信息，需要另外的手段。在以上兩段程序中我們采用了兩種不同的方法：在口令合法性檢查中，利用異常重引發(fā)由系統(tǒng)進(jìn)行缺省響應(yīng);在輸入數(shù)字合法性檢查中，通過(guò)異常實(shí)例來(lái)獲取異常信息并由自己來(lái)顯示它。

　　以上所舉的是一個(gè)非常簡(jiǎn)單的例子，但從中已可以發(fā)現(xiàn)：使用自定義異常編程，為程序設(shè)計(jì)帶來(lái)了很大的靈活性。