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 :關閉一個特定句柄的文件
後邊三個文件主要供系統內部使用,在文件復制的編程中也往往會用到。它們操作的對象是文件句柄而不是文件變量。