文件是同一類型元素的有序集合，是內存與外設間傳輸數據的渠道。一些外設如顯示器、鍵盤、打印機等都可以看作文件，但最常用的還是磁盤文件，這也是本章我們主要討論的對象。
Delphi繼承了Object Pascal的文件管理功能，並有很大的發展，其中最主要的是提供了用於文件管理的標准控件，同時也提供了更多的文件管理函數。利用Delphi的強大功能，開發一個自己的文件管理系統就成為很容易的事。
本章首先介紹Delphi文件管理的基本概念和標准過程/函數，並提供了一個記錄文件的應用實例，這是從我們實際課題開發中提取出來的。而後介紹Delphi提供的文件控件的使用方法。最後提供的一個綜合例程MDI文件管理器則是對Delphi文件管理功能的綜合應用。
6.1 文件類型和標准過程
Delphi同Object Pascal一樣支持三種文件類型，即：文本文件、記錄文件、無類型文件。
6.1.1文本文件
文本文件類型的變量用如下方法聲明：
var
TextFileVar: Text ;
文本文件是以行為單位進行讀、寫操作的。由於每一行長度不一定相同，不能計算出給定行在文件中的確切位置，因而只能順序地讀寫。而且文本文件只能單獨為讀或寫而打開，在一個打開的文本文件上同時進行讀、寫操作是不允許的。
6.1.1.1 文本文件的打開、關閉
文本文件的打開需要兩個步驟：(1). 文件變量與文件名關聯；(2). 初始化讀寫。
聯文件變量與文件名調用AssignFile標准過程：
AssignFile ( TextFileVar , FileName ) ;
FileName 既可以是全路徑名，也可以僅是文件名。對於後者系統將在當前目錄下查找。
AssignFile是Delphi新提供的一個函數，其功能等價於Object Pascal中的Assign。而Assign在Delphi中更多地被用作一個方法名。
初始化讀寫有三種方式：
1. Reset : 為讀打開文件並把文件指針移動到文件首；
2. Rewrite : 為寫創建一個新文件；
3. Append : 為寫打開存在的文件並把文件指針定位在文件尾。
當使用Reset或Append過程而文件不存在時將會引發一個I/O異常。有關I/O異常的處理請參看本章例程和第十二章中的介紹。
文件的關閉很簡單，只須調用CloseFile過程即可。
雖然Delphi應用程序在退出時會自動關閉所有打開的文件，但自己動手關閉文件可以確保釋放文件句柄，並使程序的可移植性增強。
為保持兼容，Delphi也允許用戶用Assign建立關聯，Close關閉文件。
6.1.1.2 文本文件的讀寫
從文本文件中讀取信息用Read、Readln兩個標准過程。
當讀入數值時，Read、Readln假定數值是用一個或多個空格分開的，而不是逗號、分號或其它字符。對如下一條語句：
Read ( TextFileVar , Num1 , Num2 , Num3 ) ;
如果文件中的數值是：
100 200 300
則能夠成功讀入，而若文件中的數值是
100 200， 300
則Read讀入“200，”並試圖把它轉化成一個數值時會引發一個異常。
當讀入字符是字符串時，Read、Readln過程總是讀取盡可能多的字符填充到字符串變量中或一直讀到行結束符為止。因此從文本文件中讀取格式化的字符串數據，必須聲明與其長度相匹配的字符串變量。如果要從文件中讀取單詞，必須先把文件中的每一行讀入字符串，然後再從字符串中逐個分析出單詞。或者一次只從文本文件中讀入一個字符並測試每個字符後是否是單詞斷開處。
格式化字符串之間的分隔符應讀入到一個臨時變量中，而字符串與數值、數值與數值間的分隔符讀入時會自動識別剔除。對如下一行數據：
Mon 12:10 40 50
定義
var
Day: string[3] ;
Time: string[5] ;
Num1, Num2: Integer ;
則須用如下的read 語句讀入：
read ( TextFileVar , Day , c , Time , Num1 , Num2 ) ;
C為一個臨時字符變量。
6.1.1.3 文本文件的編輯
在Delphi中實現對一個文本文件的編輯，只須讓其與一個Tmemo控件建立關聯即可：
Memo1.Lines.LoadFromFile ( TextFileName ) ;
這樣在TMemo上所做的一切修改當調用Memo部件的SaveToFile方法後都會反映到文件中去。
6.1.2 記錄文件
記錄文件是一種操作更為靈活的文件類型。它允許同時為讀和寫打開，而且由於記錄文件中每條記錄的長度固定，所以可隨機存取。
記錄文件的類型變量可如下聲明：
var
RecordFileVar: file of RecordType;
RecordType是一個自定義的記錄類型。
有關記錄文件的操作我們將在下一節中結合例程進行討論。
6.1.3 無類型文件
無類型文件提供了底層的I/O通道，可用於存取可變長度記錄的文件。經常用於文件的復制操作中。由於Delphi提供了更好的方法(見第四節)，所以無類型文件很少使用。有興趣的讀者可參看BlockRead、BlockWrite兩個聯機幫助主題。
6.1.4 Delphi的文件管理標准過程
根據功能我們把標准過程劃分為十一類進行介紹。
6.1.4.1 文件的打開與關閉
AssignFile ：把一個外部文件名和一個文件變量相關聯
Reset ：打開一個存在的文件
Rewrite ：創建並打開一個新文件（或覆蓋原有文件）
Append ：以添加方式打開一個文件（只適用於文本文件）
CloseFile ： 關閉一個打開的文件
FileOpen ：打開一個特定的文件並返回文件句柄
FileCreate ：創建一個給定文件名的文件並返回文件句柄
FileClose ：關閉一個特定句柄的文件
後邊三個文件主要供系統內部使用，在文件復制的編程中也往往會用到。它們操作的對象是文件句柄而不是文件變量。
6.1.4.2 文件定位
Seek ：把文件當前位置移到指定部分
FilePos ： 返回文件的當前位置
Eoln ： 返回行結束標志
EOF ： 返回文件結束標志
FileSeek ： 改變當前文件指針的位置
Seek與FileSeek的區別是：1. Seek僅用於記錄文件；2. FileSeek的參數是文件句柄、偏移量、起始位置。其中起始位置有文件首、當前位置、文件尾三種選擇。Seek的參數是文件變量、偏移量，偏移量是從文件首開始定位的。3. FileSeek的偏移量以字節數來計算，而Seek是根據記錄號進行移動。
Seek、FilePos僅用於記錄文件。但任何文件都可以看作是基於字節的記錄文件。下面一段程序表示了它們的用法。
{ 該例子的設計界面為一個包含TOpenDialog部件的窗體。}
uses Dialogs;
var
f: file of Byte;
size: Longint;
S: String;
y: Integer;
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
size := FileSize(f);
S := 'File size in bytes: ' + IntToStr(size);
y := 10;
Canvas.TextOut(5, y, S);
y := y + Canvas.TextHeight(S) + 5;
S := 'Seeking halfway into file...';
Canvas.TextOut(5, y, S);
y := y + Canvas.TextHeight(S) + 5;
Seek(f,size div 2);
S := 'Position is now ' + IntToStr(FilePos(f));
Canvas.TextOut(5, y, S);
CloseFile(f);
end;
end.
6.1.4.3 文件刪除與截斷
Erase ： 刪除一個存在的文件
DeleteFile ： 刪除一個文件
Truncate ：從文件當前位置將文件截斷
Erase與DeleteFile的區別是：Erase以文件變量為參數，當文件不能刪除時引起一個異常；DeleteFile以文件名為參數，當文件不存在或不能刪除時返回False，而並不引起一個異常。
6.1.4.4 文件名操作
Rename ：文件更名，以文件變量為操作對象
RenameFile ：文件更名，參數為文件的原名和新名
ChangeFileExt ：改變文件擴展名
ExpandFileName ：返回文件全路徑名
ExtractFileExt ：返回文件擴展名
ExtractFileName ：從全路徑名中返回文件名
ExtractFilePath ：返回特定文件的路徑
6.1.4.5 文件屬性
FileGetAttr ：返回文件屬性
FileSetAttr ：設置文件屬性
6.1.4.6 文件狀態
FileSize ：返回文件對象大小
IOResult ：返回上一次I/O操作的狀態
FileExists ：檢測文件是否存在
6.1.4.7 文件日期
DateTimeToFileDate ：把Delphi日期格式轉換為DOS日期格式
FileDateToDateTime ：把DOS日期格式轉換為Delphi日期格式
FileGetDate ：返回文件的DOS日期時間戳
FileSetDate ：設置文件的DOS日期時間戳
6.1.4.8 文件讀寫
Read，Readln ：從文本或記錄文件中讀取變量
Write ：將指定變量寫入文本或記錄文件
Writeln ：將指定變量寫入文本文件並寫入一個行結束標志
FileRead ：從一個指定文件中讀取變量
FileWrite ：向指定文件寫入數據
FileRead和FileWrite都是以文件句柄為操作對象，主要供系統內部使用。
6.1.4.9 目錄操作
MkDir ：創建當前目錄的子目錄
ChDir ：改變當前目錄
GetDir ：返回特定磁盤的當前目錄
RmDir ：刪除一個空子目錄
6.1.4.10 磁盤操作
DiskFree ：返回磁盤自由空間
DiskSize ：返回特定磁盤的大小
6.1.4.11 文件查找
FileSearch ：查找目錄中是否存在某一特定文件
FindFirst ：在目錄中查找與給定文件名（可以包含匹配符）及屬性集相匹配的第一個文件
FindNext ：返回符合條件的下一個文件
FindClose ：中止一個FindFirst / FindNext序列
有關文件管理標准過程/函數的更詳細資料，請查閱Delphi相關的Help主題。以上的大部分過程在後面都有應用實例，讀者可以從中體會其用法。
在Delphi的聯機幫助Help系統中把有關文件的過程/函數分為兩個主題：I/O Routine和File_Management Routine。前者大部分以文件變量為操作對象，而後者大部分以文件名或文件句柄為操作對象。這裡為了方便讀者的使用，我們按功能重新進行了分類。在下一節中主要應用I/O Routine主題下的過程，而在第四節的綜合舉例中主要應用File_Management Routine主題下的過程。
另外，Windows提供了許多有關文件管理的API函數。雖然在一般情況下，利用Delphi提供的函數已足夠解決問題，但有時候仍然需要使用Windows API。在(6.4.4.2)中我們就用到了Windows API函數GetDriveType。有關Windows API函數的情況，請讀者參閱相關的資料，這裡不再進行介紹。
6.2 記錄文件的應用
6.2.1 任務介紹
在這一節，我們開發一個系統安全性綜合評估方法管理系統。系統安全性在復雜項目開發中十分重要，但由於牽涉面廣因而很難獲得客觀、全面的評估值。鑒於此我們提出多角度、多側面評估而後定量集成的思路，並在此基礎上提出了多種安全性綜合評估方法。每種方法由不同部門進行評估而後把結果匯總、綜合。
為此我們定義如下的記錄類型：
type
TNature = (Micro,Macro);
{方法性質，分為微觀和宏觀兩類}
TMethod = Record
Name: string[20]; {方法名}
Condition: string[40]; {方法適用條件}
Nature: TNature; {方法性質}
Result: Real; {方法評估值}
end;
用來記錄不同方法的信息。
由於不同方法的條件、性質不同，因而對工程開發的不同階段適用方法集也不同。因此需要根據實際情況對方法集進行管理。我們把每一方法作為一條記錄，每一方法集作為一個記錄文件。下面討論系統的實現方法。
6.2.2 設計基本思路
本系統要實現的基本功能是文件的打開、創建、關閉、顯示，記錄的增加、修改、刪除以及結果的綜合和顯示。為此我們使用了兩組按鈕分別用於文件和記錄的操作， 使用一個StringGrid控件來顯示文件內容，使用一個只讀編輯框顯示結果的綜合。
其中各部件的名稱、功能如下表所示：
表6.1 主窗口部件的設計
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
部件名稱 主要屬性 備注
──────────────────────────────────────
RecFileForm BorderStyle=bsDialog 文件打開後把文件名附到窗口標題後
Position=poScreenCenter
StringGrid1 大小行數動態確定
HazAttr(編輯框) ReadOnly=True 顯示綜合結果
OpenButton TabOrder=0 打開一個記錄文件,若文件不存在則創建
NewButton Caption='打開' 創建一個記錄文件,若文件存在則打開
CloseButton Caption='關閉' 關閉一個已打開的文件
