File Handling In Pascal/zh TW

│ العربية (ar) │ English (en) │ español (es) │ suomi (fi) │ français (fr) │ 日本語 (ja) │ русский (ru) │ 中文（中国大陆）‎ (zh_CN) │ 中文（台灣）‎ (zh_TW) │

大概所有程式設計師最需要知道的就是如何處理檔案。檔案可以用來儲存使用者的設定，錯誤報告，或更多更多。在這裡我們將教您一些最基本的文字檔案處理。

舊方法

當使用傳統非物件導向的 Pascal 時，你可以使用 TextFile 類型 (type)，可以讓你建立檔案並對它寫入字串。

...
type
 TIntegerFile = file of Integer; // 可以讓你對檔案寫入整數值
 TPCharFile = file of PChar; // 將字元 (PChars) 寫入檔案 :\
 TStringFile = file of string; // 將字串寫入檔案
...

若我們僅用了 TStringFile = File，它將無法寫入任何東西！更無法將整數值寫入 TStringFile，因為它已經是字串型態的檔案。最好是使用 TextFile 的型態，它才能寫入各種不同形態的內容。

輸入輸出

IO 是 Pascal 專門用來處理檔案用的。他通常用來對付錯誤訊息。 當用來當編譯器的指令時，你可以這麼用：

{$I-} // 關閉檢查。這會使所有錯誤回報轉向存在 IOResult 這個變數裡
{$I+} // 開啟回來

當關閉 IO 時他所有的輸出都會轉到 IOResult 變數裡。他是主要數字型態的變數 (cardinal type; Numbers)。所以如果你想要對它做寫入，你得使用 IntToStr 函式。不同的數字代表不同的錯誤。你可以參看這裡來了解每個不同的錯誤：[1]

處理檔案的程序

以下列出所有系統裡用來做檔案處理時會用的程序和函式。

• Assign - 指派名稱給檔案
• Append - 開啟已經存在的檔案，在檔案的末端接續額外內容並編輯它
• BlockRead - 對未定型態的檔案將其內容讀入到記憶體
• BlockWrite - 將記憶體中的內容寫入未定型態的檔案
• Close - 關閉開啟中的檔案
• EOF - 檢查是否為檔案末端
• Erase - 將檔案從磁碟上刪除
• FilePos - 取得檔案定位
• FileSize - 取得檔案大小
• Flush - 將檔案暫存寫入磁碟
• IOResult - 回傳最後一個檔案 IO 操作的結果
• Read - 將文字檔寫入變數
• ReadLn - 將文字檔寫入變數並換行
• Reset - 開啟一個檔案準備讀取
• Rewrite - 開啟一個檔案準備寫入
• Seek - 變更檔案中的定位
• SeekEOF - 將檔案定位指到其結尾處
• SeekEOLn - 將檔案定位指到該行結尾處
• Truncate - 於檔案定位處將內容清空
• Write - 將變數內容寫入檔案
• WriteLn - 將變數內容寫入檔案並換行

參考單元 'System'

範例

以下為處理一型態是 TextFile 的文字檔的完整範例：

program FileTest;

{$mode objfpc} // 永遠都不要放記這個

uses
 Sysutils;

var
 FileVar: TextFile;

begin
  WriteLn('File Test');
  AssignFile(FileVar, 'Test.txt'); // 你不一定需要 .txt，在這裡我們這麼做
  {$I-}
  try
    Rewrite(FileVar);  // 建立檔案
    Writeln(FileVar,'Hello');
  except
    Writeln('ERROR! IORESULT: ' + IntToStr(IOResult));
  end;
  CloseFile(FileVar);
  ReadLn;
end.

現在你再用任何的文字編輯器來開啟這支文字檔，你會看到一個 Hello 寫在裡面！

在來我們接著加入內容 (編輯它)

program EditFile;


{$mode objfpc}

uses
 Sysutils;

var
 File1: TextFile;
 
begin
  WriteLn('Append file');
  AssignFile(File1, 'File.txt');
  {$I-}
  try
    Append(File1, 'Some Text');
  except
    Writeln('ERROR IORESULT:' + IntToStr(IOResult));
  end;
  {$I+}
  CloseFile(File1);
  Readln;
end.

讀取檔案：

program ReadFile;


{$mode objfpc}

uses
 Sysutils;

var
 File1: TextFile;
 Str: String;
 
begin
  Writeln('File Reading:');
  AssignFile(File1, 'File,txt');
  {$I-}
  try
    Reset(File1);
    repeat
      Readln(File1, Str); // 對檔案讀取整行
      Writeln(Str); // 將讀到的一整行寫入
    until(EOF(File1)); // EOF (檔案結尾) 迴圈會一直進行讀取直到讀不到內容為止。
  except
    Writeln('ERROR IORESULT:', IOResult);
  end;
  {$I+}
  CloseFile(File1);
  Readln;
end.

在這裡的處理你也可以改用字元替代字串。這會讓它看起來很酷 :D。

物件導向做法

大部份的檔案處理類別都可以直接著檔案進行讀取／存入。這些方法一般會取名為 SaveToFile 和 LoadFromFile。

二進位

若要進行直接存取可以使用 TFileStream 。這個類別將系統程序 FileOpen，FileCreate，FileRead，FileWrite，FileSeek 與 FileClose 全都包裝好放置於一起，歸屬於 FileUtil 單元。這個類型基本上算跨平台的，不過不同平台會有一些不同的實作方式。

IO 例行程序

var
  Buffer: array[0..10000] of Byte;
begin
  with TFileStream.Create('SomeFile.bin', fmCreate) do 
  try
    Seek('Hello');
    Write(Buffer, SizeOf(Buffer));
  finally
    Free;
  end;
end;

如果檔案比起你的系統記憶體比起來小的多，你也可以將整個檔案載入到記憶體內。

begin
  with TMemoryStream.Create do 
  try
    LoadFromFile('SomeFile.bin');
    Seek(0, soEnd);
    Write(Ord('A'), 1);
    SaveToFile('SomeFile.bin');
  finally
    Free;
  end;
end;

文字檔案

一般針對文字檔你可以使用 TStringList 類別來載入整支檔案到記憶體中，然後一行行來存取。

begin
  with TStringList.Create do 
  try
    Add('Hello');
    SaveToFile('SomeFile.txt');
  finally
    Free;
  end;
end;