6.2.8 結果綜合
對不同方法的評估結果，可按一定的公式進行綜合。當用戶按下“計算”按鈕時，系統進行計算並把綜合結果寫入HazAttr只讀編輯框中。
為保證結果顯示的正確性，每次增加、修改、刪除操作確認後HazAttr編輯框清空。
6.2.9 編輯對話框的輸入檢查
當用戶單擊“增加”或“修改”按鈕時系統將彈出一個編輯對話框，讓用戶輸入或修改記錄內容。其中的三個編輯框，一個組合列表框分別對應TMethod 的四個域。由於TMethod的Result域必須是[0,1]間的小數，因此當用戶按OK鍵關閉對話框時應進行類型和范圍檢查。
在VB中我做過同樣的工作，那時需要對用戶輸入的鍵碼逐個進行判斷。但這種方法很繁瑣、很難做圓滿(如不能很好地支持編輯鍵)。而Object Pascal提供了更好的方法。這種方法的關鍵就在於它的類型轉換函數Val：
procedure Val(Str: String;var V; var Code: Integer)；
V是由Str轉換成的整型或實型數。若字符串非法，則出錯位置返至Code;否則置Code為0。字符串非法並不會引發一個轉換異常。
如果轉換後的數超出了我們的范圍，則顯式把Code置為-1。最後統一通過檢測Code是否為0來判斷輸入是否合法。
我們把輸入檢查放在對話框的OnCloseQuery事件處理過程中。如輸入非法，則禁止對話框關閉，並將輸入焦點置於Result編輯框中。但假如用戶按了Cancel按鈕，則這種檢查是多余的。為此定義一個布爾變量IsCancel，對話框生成時置為False。假如用戶按下Cancel，則置為True，此時OnCloseQuery事件不進行輸入檢查。
對話框的OnCloseQuery事件處理過程的程序清單如下：
procedure TEditForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
Res: Real;
k: Integer;
begin
if IsCancel = False then
begin
val(Result.text,Res,k);
if (Res > 1) or (Res < 0) then k := -1;
if k <> 0 then
begin
MessageDlg('非法輸入 ！',mtWarning,[mbOK],0);
Result.text := '';
CanClose := False;
Result.SetFocus;
end;
end;
end;
6.2.10 文件和系統的關閉
文件關閉須調用CloseFile過程：
CloseFile(MethodFile);
並對系統的狀態重新進行設置。
系統關閉時首先檢測當前是否有打開的文件。若有則先關閉文件。這在主窗口的OnCloseQuery事件中實現。
實現文件關閉的程序清單如下：
procedure TRecFileForm.CloseButtonClick(Sender: TObject);
begin
if FileOpened then
begin
CloseFile(MethodFile);
FileOpened := False;
ClearGrid;
OpenButton.Enabled := True;
NewButton.Enabled := True;
CloseButton.Enabled := False;
RecFileForm.Caption := FormCaption;
end;
end;
實現系統關閉前檢查的程序清單如下：
procedure TRecFileForm.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if FileOpened then
closeFile(MethodFile);
end;
6.2.11 記錄文件小結
我們所舉的例子雖然簡單，但基本覆蓋了記錄文件操作的主要方面。這裡關鍵問題在於靈活應用Delphi提供的文件管理函數。同時，為了保證程序的健壯性應對異常進行捕獲並處理。在數據庫應用技術發展的今天，記錄文件的重要性也許有所下降，但對象我們這裡所處理的簡單問題它仍有用武之地。
這裡所舉的例子一次只能處理一個文件。但讀者可以很容易把它改為一個MDI程序。雖然對於這裡的實際情況來說，似乎並無必要。
6.3 文件控件的應用
Delphi文件管理的最大特色是提供了一組文件操作控件。利用這些控件我們可以快速開發一個文件名浏覽系統。其功能強大與其所需書寫代碼之少所形成的強烈反差，正是Dephi生命力的體現。
6.3.1 文件控件及其相互關系
Delphi提供的專用文件控件如下表所示。
表6.4 Delphi專用文件控件━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
控件名 功能
─────────────────────────────────────
DriveComboBox 驅動器組合列表框。用於選擇當前驅動器
FileListBox 文件列表框。用於顯示當前目錄中的文件和選中當前文件
FilterComboBox 文件類型組合列表框。用於選擇顯示文件的類型
DirectoryOutline 目錄樹(6.4節專門介紹)
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
以上控件前四個在Component Palette(部件選擇板)的System頁中，DirectoryOutline在Component Palette的Samples頁中。
以上文件控件再加上文件編輯框、目錄標簽框(事實上是一般的編輯框、標簽框)就可以構成一個完整的文件操作系統。它們之間的聯系幾乎不用代碼支持，只要設置好相應的屬性就可以了。
FileEdit、DirLabel、FileListBox、FileFilterComloList、 DirectoryListBox、DriveComboList六個控件間的屬性聯系如下：
DriveComboList .DirList := DirectoryListBox;
DirectoryListBox.DirLabel := DirLabel;
DirectoryListBox.FileList := FileListBox;
FileFilterComboList.FileList := FileListBox;
FileListBox.FileEdit := FileEdit;
以上聯系可以在設計時完成。只要打開相應屬性的選擇列表框進行選擇即可。也可以在運行時利用如上的賦值語句建立聯系。
文件控件的關鍵屬性基本上都在以上聯系中反映出來了。除此之外，FileFilterComboList有一個Filter屬性，用來設置組合列表框的選擇項；FileListBox 有一個Mask屬性，用於設置顯示文件的類型，這就允許FileListBox在脫離FileFilterComboList單獨應用時仍能根據需要顯示特定的文件。在6.4節中我們將應用這一功能。
文件控件的方法、事件基本是從ListBox和ComboBox中繼承的。但FileListBox 中有一個ApplyFilePath方法很有用，我們將在後邊給出其用法。
