14.6.2 實(shí)現(xiàn)異常保護(hù)的TRY...FINALLY語(yǔ)句

　　上面的程序存在著潛在的危險(xiǎn)，在實(shí)際應(yīng)用過(guò)程中，可能因?yàn)槟承┰�因使得�?duì)數(shù)據(jù)庫(kù)表的更新不能進(jìn)行下去。如當(dāng)程序試圖執(zhí)行Post方法將修改后的記錄寫(xiě)回磁盤(pán)時(shí)，而又因?yàn)槟撤N原因磁盤(pán)沒(méi)有準(zhǔn)備好，這時(shí)便出現(xiàn)了異常。當(dāng)出現(xiàn)異常時(shí)，應(yīng)用程序會(huì)暫停下來(lái)并且會(huì)彈出一對(duì)話框顯示有關(guān)的錯(cuò)誤信息，在用戶單擊錯(cuò)誤信息對(duì)話框之后，程序?qū)⒗^續(xù)執(zhí)行到某一個(gè)地方去，而這個(gè)地方常常不是用戶所能預(yù)料到的。在我們的程序中， 在執(zhí)行Post方法之前，窗體中所有的部件與TTable部件都已失去聯(lián)系。因此，這種異常將導(dǎo)致窗體中顯示的數(shù)據(jù)和數(shù)據(jù)庫(kù)無(wú)關(guān)。

　　Object Pascal中的Try...Finally語(yǔ)句為我們解決上述異常問(wèn)題提供了一個(gè)解決方法。在Delphi中仍然采用了這一語(yǔ)句用來(lái)處理異常問(wèn)題。實(shí)際上，Try...Finally 語(yǔ)句是把兩組語(yǔ)句組合在一起。語(yǔ)句的Try部分包含了可能產(chǎn)生異常的程序代碼，F(xiàn)inally部分包含了即使發(fā)生了異常也必須執(zhí)行的一條或多條語(yǔ)句。在本例中， Finally 部分只包含了EnableControls方法調(diào)用這一條語(yǔ)句，我們將前面的代碼改寫(xiě)并組合進(jìn)Try...Finally 語(yǔ)句：

　　with Table Do

　　begin

　　DisableControls;{在修改記錄的過(guò)程中，使其它部件無(wú)效}

　　Try;

　　First; {將記錄指針指向第一條記錄}

　　while not EOF do

　　begin

　　<讀取記錄的一個(gè)字段值到一個(gè)變量中>

　　<做適當(dāng)?shù)男薷?gt;

　　Edit; {將TTable部件置成編輯狀態(tài)}

　　<將修改后的字段值寫(xiě)回到其對(duì)應(yīng)的字段>

　　post; {將修改后的記錄寫(xiě)回?cái)?shù)據(jù)庫(kù)}

　　next; {修改下一條記錄}

　　end;

　　enablecontrols;

　　Finally;{出現(xiàn)異常時(shí),執(zhí)行下面的程序}

　　enablecontrols; {恢復(fù)其它部件的功能}

　　end; {結(jié)束Try...Finally語(yǔ)句}

　　end;

　　在保留字Try和Finally之間的代碼跟前面的代碼是一樣的，它們用于在記錄之間移動(dòng)記錄指針并處理對(duì)記錄的修改，這一段代碼可能會(huì)出現(xiàn)異常，當(dāng)異常發(fā)生時(shí)，我們想保證執(zhí)行EnableControls，以便窗體中各控件恢復(fù)與 TTable 部件的聯(lián)系， 因此我們必須將EnableControls語(yǔ)句放在Finally和結(jié)束語(yǔ)句End之間。

　　在這里要特別注意，請(qǐng)讀者們不要混淆了Try...Finally語(yǔ)句和Try...Except 語(yǔ)句。如果真正想在發(fā)生異常時(shí)采取相應(yīng)的處理，就要使用Try...Except語(yǔ)句。Try... Finally語(yǔ)句只是用來(lái)處理當(dāng)異常出現(xiàn)時(shí)，使應(yīng)用程序執(zhí)行Finally部分的語(yǔ)句，使程序繼續(xù)執(zhí)行下去。Try...Except語(yǔ)句是實(shí)現(xiàn)異常處理，Try...Finally語(yǔ)句是實(shí)現(xiàn)異常保護(hù)。

　　有了上述這些概念，我們便可以提供這個(gè)例子的一些程序代碼，它涉及了所有這些內(nèi)容。

　　程序清單：修改數(shù)據(jù)庫(kù)中的記錄

　　unit Unit26;

　　interface

　　uses

　　Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

　　Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, DB, DBTables, Buttons;

　　type

　　TForm1 = class(TForm)

　　DataSource1: TDataSource;

　　customerTable: TTable;

　　Panel1: TPanel;

　　DBGrid1: TDBGrid;

　　Panel2: TPanel;

　　UpperCaseFirstAddBtn: TButton;

　　UpperCaseSecondAddBtn: TButton;

　　MixedCaseFirstAddBtn: TButton;

　　MixedCaseSecondAddBtn: TButton;

　　BitBtn1: TBitBtn;

　　procedure ForceCase(TargetField:String;ToUpper:Boolean);

　　procedure UpperCaseFirstAddBtnClick(Sender: TObject);

　　procedure MixedCaseFirstAddBtnClick(Sender: TObject);

　　procedure UpperCaseSecondAddBtnClick(Sender: TObject);

　　procedure MixedCaseSecondAddBtnClick(Sender: TObject);

　　procedure FormCreate(Sender: TObject);

　　private

　　{ Private declarations }

　　public

　　{ Public declarations }

　　end;

　　var

　　Form1: TForm1;

　　implementation

　　const

　　upper=true;

　　Mixed=False;

　　{$R *.DFM}

　　Function IsUpper(ch:char):Boolean;

　　begin

　　If (ch>='A')and(ch<='Z')then

　　IsUpper:=true

　　else

　　IsUpper:=False;

　　end;

　　procedure TForm1.ForceCase(TargetField:String;ToUpper:Boolean);

　　var

　　WorkBuffer:string;

　　i:Integer;

　　begin

　　with customerTable do

　　begin

　　DisableControls;

　　TRY

　　First; {將記錄指針移到第一條記錄處 }

　　While not EOF do

　　begin

　　WorkBuffer:=FieldByName(TargetField).AsString;

　　If ToUpper then

　　for i:=1 to Length(WorkBuffer)do

　　WorkBuffer[i]:=UpCase(WorkBuffer[i])

　　else

　　begin

　　for i:=1 to Length(WorkBuffer) do

　　If IsUpper(WorkBuffer[i]) then

　　WorkBuffer[i]:=chr(ord(WorkBuffer[i])+32);

　　WorkBuffer[1]:=UpCase(WorkBuffer[1])

　　end;

　　Edit;

　　FieldByName(TargetField).AsString:=WorkBuffer;

　　post;

　　Next;

　　end;

　　Finally

　　enableControls;

　　end;

　　end;

　　end;

　　procedure TForm1.UpperCaseFirstAddBtnClick(Sender: TObject);

　　begin

　　ForceCase('Addr1',Upper);

　　end;

　　procedure TForm1.MixedCaseFirstAddBtnClick(Sender: TObject);

　　begin

　　ForceCase('Addr1',Mixed);

　　end;

　　procedure TForm1.UpperCaseSecondAddBtnClick(Sender: TObject);

　　begin

　　ForceCase('Addr2',Upper);

　　end;

　　procedure TForm1.MixedCaseSecondAddBtnClick(Sender: TObject);

　　begin

　　ForceCase('Addr2',Mixed);

　　end;

　　procedure TForm1.FormCreate(Sender: TObject);

　　begin

　　customerTable.open;

　　end;

　　end.