9.3.1檔案型別

1．檔案型別概念

Delphi使用檔案型別來讀寫儲存在外部儲存介質上的檔案。一個檔案變數能夠與任意種類的外部裝置建立通訊，包括磁碟、印表機、鍵盤、繪圖儀、調變解調器等。

  例如，程式執行時可以從磁碟檔案中讀取資料，向磁碟檔案寫入資料；程式執行結束後，資料仍儲存在磁碟檔案中，不會丟失。

2．檔案型別分類

根據檔案中資料元素的資料型別，可將檔案型別分為文字檔案、型別檔案和無型別檔案。

（1）文字檔案。

元素型別是字元char，每個元素佔用一個位元組，以回車換行符表示每行結束。Delphi定義的標準文字檔案型別是text或textfile，兩個識別符號同義。

（2）型別檔案。

元素型別可以是整數、實數或記錄等除檔案以外的資料型別。每個元素所佔的位元組數由元素型別決定。

（3）無型別檔案。

以位元組byte為單位對檔案中的二進位制資料元素進行操作，而不管每個位元組表示什麼型別的資料元素。

3．檔案與陣列的區別

檔案的定義與陣列很像，都是由相同資料型別的資料元素組成的序列。但檔案不同於陣列，區別如下：

·陣列是由固定多個元素組成，而檔案的長度是不定的，隨機的。

·陣列元素總是存放在記憶體，而檔案則往往與外部介質相聯絡。

·陣列元素以“陣列名[下標]”的形式訪問，而檔案則需通過檔案變數來訪問。

9.3.2型別檔案操作

1．型別檔案定義與變數宣告

型別檔案的型別定義格式如下：

type型別檔案=file of資料型別;

其中，file、of是關鍵字，“資料型別”是檔案的元素型別。例如：

type

  intFile=file of integer;//整型檔案型別

var

  f:file of integer;//f是整型檔案變數

檔案的元素型別必須是固定長度的資料型別，不能是檔案、動態陣列、長字串、指標或包含不固定長度域的記錄型別。例如：

fx:file of intFile;//編譯錯，檔案的元素型別不能是檔案

Delphi中的字串型別string，由於要支援長字串，其大小是不固定的，因此不能作為檔案的資料型別，但可以使用短字串型別ShortString，因為它具有

var f1:file of ShortString;//ShortString型別為256個位元組

f2:file of string[20];//string[20]為20個位元組

f3:file of string;//編譯錯，記錄長度不確定

固定長度的記錄型別可以作為檔案的元素型別，但包含不固定長度域的記錄型別則不可以。例如，以下定義的記錄型別phoneEntry可以作為檔案的元素型別：

type

phoneEntry = record

name: string[20];

phoneNumber: string[20];

address: string[100];

end;

phoneList = file of phoneEntry;

2．為檔案變數指定相應檔案

在使用檔案變數進行檔案操作之前，必須呼叫AssignFile過程建立檔案變數與待操作檔案之間的聯絡。

AssignFile過程宣告如下：

procedure AssignFile(var f; filename:string);

其中，f為檔案變數名，f宣告為無型別的變數引數，宣告為無型別引數是為了與所有檔案型別相容；FileName為檔名字串，是包括檔名的全路徑名。例如：

AssignFile(f,'D:\Output.dat');

指定了檔案變數f與磁碟檔案'D:\Output.dat'相關聯，其後對變數f的操作都是針對指定檔案的。

3．開啟檔案

指定檔名後，對檔案操作之前，應先開啟檔案。有以下兩種開啟檔案方式：

（1）Reset方式。

呼叫Reset過程開啟一個已存在檔案，然後可從檔案中讀取資料，也可向檔案寫入資料。Reset過程宣告如下:

procedure Reset(var f [: File; RecSize: Word]);

開啟檔案變數f所指定的檔案，檔案變數指向檔案開頭的第一個元素。當指定檔案不存在時，產生I/O異常EInOutError。

（2）Rewrite方式。

Rewrite過程宣告如下：

procedure Rewrite(var f:File[; Recsize: Word]);

呼叫Rewrite過程，系統以f指定的檔名，在磁碟上建立一個空檔案並準備寫入資料。如果f指定檔案已存在，則該檔案將被覆蓋，原有內容丟失。

4．讀入檔案

呼叫Reset開啟檔案後，可使用Read過程讀取檔案內容。過程宣告如下：

procedure Read(var f, v1{, v2});

其中f為檔案變數，v1、v2為待輸入的變數名，v1等變數的資料型別是檔案的元素型別。

當讀取整型和實型資料時，檔案中的資料元素用空格分隔，且必須符合資料格式，否則將產生I/O錯誤。

5．判斷檔案是否結束

在讀取檔案之前，必須判斷檔案是否結束。只有未到檔案結束點，才能讀取資料。Eof函式宣告如下：

function Eof(var f):Boolean;

當檔案變數f指向檔案尾部，讀入檔案結束標記時，表示檔案結束，Eof函式返回True，否則返回False。

6．向檔案寫入資料

呼叫Rewrite開啟檔案後，使用Write過程向檔案中寫入資料。過程宣告如下：

procedure Write(var f, v1{, v2});

向檔案f中寫入若干個檔案元素型變數v1、v2的值。

7．關閉檔案

無論是以Reset或Rewrite方式開啟檔案，在對檔案操作完畢後，都必須使用CloseFile過程關閉檔案，宣告如下：

procedure CloseFile(var f);

關閉檔案後，系統釋放檔案使用的資源。

以Rewrite方式開啟檔案，呼叫Write過程時，資料先寫入記憶體緩衝區，只有緩衝區滿或關閉檔案時，才把資料真正寫入磁碟中，並寫入檔案結束標記。如果寫完資料後不關閉檔案，可能造成資料的丟失。

9.3.3文字檔案操作

1．文字檔案變數說明

Delphi定義了TextFile型別表示文字檔案，它與Pascal語言中的Text型別完全相同。例如：

var f:TextFile;//宣告文字檔案變數f

2．檔案型別共同的操作

與型別檔案一樣，對文字檔案進行操作也需要以下幾個步驟：

（1）宣告檔案變數f。

（2）呼叫AssignFile過程為檔案變數f指定相關檔案。

（3）呼叫Reset或Rewrite過程開啟檔案f。

（4）Reset開啟檔案，當未到檔案尾，即Eof(f )返回false時，呼叫Read(f,i)過程，讀入檔案f的一個元素值存放在變數中。

（5）Rewrite開啟檔案時，呼叫Write(f,i)過程，將變數i的值寫入檔案f中。

（6）關閉指定檔案CloseFile(f )。

3．僅用於文字檔案的操作

（1）與型別檔案定義不同的過程與函式。

對於文字檔案，讀、寫等過程和函式的定義與型別檔案定義有所不同，宣告如下：

procedure Read([var f: Text;]v1{, v2));

function Eof[(var f:Text)]: boolean;

procedure Write([var f: Text;]p1{, p2});

（2）Append新增方式開啟檔案。

Append過程宣告如下：

procedure Append(var f: Text);

呼叫Append過程開啟檔案，檔案變數指向檔案尾部，此後寫入的資料新增在檔案原有資料之後。如果檔案不存在，則產生I/O異常。

（3）Readln按行讀取字串。

Readln過程宣告如下：

procedure Readln([var f: Text;] v1{, v2});

Readln讀取以回車換行符結束的一行字串，之後跳過回車換行符，再讀下一行。

（4）判斷行是否結束。

對於文字檔案，也可以呼叫Read(f,c)過程逐個地讀取字元，此時可以使用Eoln函式判斷行是否結束。Eoln函式宣告如下：

function Eoln [(var f: Text) ]: boolean;

當檔案變數f讀取回車換行符時，表示一行結束，Eoln函式返回True，否則返回False。

對於文字檔案，既可以呼叫Readln過程按行讀取字串，也可以呼叫Read過程逐個讀取字元。需注意讀入回車換行符時的操作，例如，Readln讀完一行資料後，再使用Read讀取字串將得到空串。

以上所述Append、Writeln、Readln、Eoln例程只對文字檔案有效，對型別檔案無效。

資料既可以儲存在型別檔案中，也可以儲存在文字檔案中。兩種方式各有所長，存於型別檔案中，資料隱蔽性較強，但讀取不方便，必須根據要求特別編寫讀入程式；存於文字檔案中，可使用記事本等多種工具開啟文字檔案，不必特別編寫讀入程式，但資料是公開的，無法隱藏。實際應用時，可根據需求有所選擇。

4．標準輸入輸出

由於鍵盤和顯示器是作業系統預設的標準輸入/輸出裝置，作業系統對裝置的訪問也是基於檔案進行的，並且標準輸入/輸出檔案都是以字元為基本元素的文字檔案。

為此，Delphi定義了兩個預設的文字檔案變數Input和Output，用於處理標準的輸入與輸出操作。

Input代表標準輸入文字檔案，即鍵盤；Output代表標準輸出文字檔案，即顯示器。

平時我們所說的讀和寫語句，實際上是從Input檔案中讀入變數值，或向Output檔案寫入指定變數的值，其中省略了預設變數Input和Output的形式。例如，下列兩條語句等價：

Read(i, j);//從Input檔案中讀入變數值，省略Input

Read(input, i, j);//從Input檔案中讀入變數值

雖然Input是文字檔案，但從Input檔案中可以讀入非字元的整數型別等變數值，系統已經自動進行了資料型別的轉換，這一功能是普通文字檔案所沒有的。

下列語句兩兩等價：

Readln(i,j);與Readln(input, i,j);

Readln();與Readln(input);

Write(i,j);與Write(output,i,j);

Writeln(i,j);與Writeln(output, i,j);

Writeln();與Writeln(output);

9.3.4無型別檔案操作

僅以file宣告的檔案變數稱為無型別檔案變數。例如：

var f: file;

無型別檔案變數f代表二進位制位元組檔案，而不管每個位元組表示什麼型別的資料元素。

對無型別檔案的讀/寫操作由BlockRead和BlockWrite過程實現，它們以二進位制資料塊為單位，通常一個數據塊為128個位元組，一次可讀或寫若干資料塊。

9.3.5檔案的隨機操作

除了順序存取，檔案還有隨機存取方式，即按記錄位置的編號進行讀/寫操作，通常對記錄式檔案採用隨機存取方式，而對文字檔案這種字元流式檔案則不採用隨機存取方式。

有關隨機存取的操作如下，這些操作僅用於型別檔案和無型別檔案，不能用於文字檔案。

function FileSize(var f: file): Int64;//返回檔案長度，即記錄總數

function FilePos(var f: file): Int64;//返回檔案當前記錄編號

procedure Seek(var f: file, n: integer);//跳過n個記錄位置

procedure Truncate(var f: file);//截斷檔案

記錄編號通常從0開始計數。給定一個記錄編號，呼叫Seek(f,n)過程，檔案的讀/寫指標將從當前記錄位置處跳過n個記錄，定位在所需的記錄位置處，進行讀/寫操作。呼叫Truncate(f ) 過程將檔案從當前記錄處截斷，從當前記錄至檔案尾的若干記錄則被刪除。

採用順序存取方式，通常將讀檔案和寫檔案的操作分開進行，以Reset( )方式開啟檔案準備讀，以Rewrite( )方式開啟新檔案準備寫，讀和寫操作分別進行。

實際上，對於可讀寫的型別檔案和無型別檔案，以Reset( )和Rewrite( )兩種方式開啟檔案，既可以讀取資料也可以寫入資料，同時支援隨機存取方式。

以Reset( )方式開啟檔案時，檔案的原有內容仍保留，系統設定的檔案指標定位於第一個記錄，記錄號為0。此時，如果寫資料，則將原第一個記錄內容覆蓋。例如：

Reset(f);//當前記錄號為0

Write(f,p);//覆蓋當前記錄內容

如果將檔案指標定位於檔案尾，則可在原檔案之後增加新內容。例如：

Reset(f);

Seek(f,FileSize(f));//定位到檔案尾

Write(f,p);//追加記錄

以Rewrite( )方式開啟檔案時，檔案原有內容不保留，檔案指標定位於第一個記錄，記

錄號為0，這是要寫入的記錄位置。寫入若干記錄後，可以改變檔案指標，再讀記錄，例如：

Rewrite(f);

Write(f ,p);

Write(f ,p);

Seek(f,0);

Read(f,p);//讀出第一個記錄

9.3.6與檔案目錄相關的標準過程和函式

Delphi在System、SysUtils等單元中定義了與檔案和目錄操作有關的若干過程/函式。

1．System單元中與目錄操作有關的過程/函式

procedure ChDir(const s: string);//改變當前目錄

procedure MkDir(const s: string);//建立一個新的子目錄S

procedure RmDir(const s: string);//刪除一個空的目錄S

function Flush(var t:Text): integer;//清空文字輸出緩衝區

function IOResult: integer;//返回I/O操作狀態。

procedure Move(const Source; var Dest; Count: Integer);

//將源資料塊以位元組形式拷貝至目的資料塊

2．SysUtils單元中與檔案操作有關的過程/函式

function GetCurrentDir: string;//返回當前目錄路徑名

function SetCurrentDir(const Dir: string): Boolean;//設定當前目錄

function FileCreate(const FileName: string):Integer;//建立檔案

function FileExists(const FileName: string): Boolean;//判斷指定檔案是否存在

function CreateDir(const Dir: string): Boolean;//建立新目錄

function ExpandFileName(const FileName: string): string;

//從檔名返回完整的檔案路徑名

function ExtractFileDir(const FileName: string): string;

//從檔案路徑名中返回目錄路徑名

function ExtractFileName(const FileName: string): string;

//從檔案路徑名中返回檔名和副檔名

function ExtractFileExt(const FileName: string): string;

//從檔案路徑名中返回副檔名

function DeleteFile(const FileName: string): Boolean;//刪除指定檔案

function RenameFile(const OldName, NewName: string): Boolean;

//重新命名指定檔案

function FileGetAttr(const FileName:string):Integer;//返回指定檔案的屬性

function DiskSize(Drive: Byte): Int64;//返回指定驅動器的總容量

function DiskFree(Drive: Byte): Int64;//返回指定驅動器的剩餘磁碟空間