Difference between revisions of "File Handling In Pascal/zh TW"

From Free Pascal wiki
m (Fixed syntax highlighting; deleted category included in page template)
 
(3 intermediate revisions by 3 users not shown)
Line 7: Line 7:
 
當使用傳統非物件導向的 Pascal 時,你可以使用 TextFile 類型 (type),可以讓你建立檔案並對它寫入字串。
 
當使用傳統非物件導向的 Pascal 時,你可以使用 TextFile 類型 (type),可以讓你建立檔案並對它寫入字串。
  
<Delphi>...
+
<syntaxhighlight lang=pascal>...
 
type
 
type
 
  TIntegerFile = file of Integer; // 可以讓你對檔案寫入整數值
 
  TIntegerFile = file of Integer; // 可以讓你對檔案寫入整數值
 
  TPCharFile = file of PChar; // 將字元 (PChars) 寫入檔案 :\
 
  TPCharFile = file of PChar; // 將字元 (PChars) 寫入檔案 :\
 
  TStringFile = file of string; // 將字串寫入檔案
 
  TStringFile = file of string; // 將字串寫入檔案
...</Delphi>
+
...</syntaxhighlight>
  
 
若我們僅用了 TStringFile = File,它將無法寫入任何東西!更無法將整數值寫入 TStringFile,因為它已經是字串型態的檔案。最好是使用 TextFile 的型態,它才能寫入各種不同形態的內容。
 
若我們僅用了 TStringFile = File,它將無法寫入任何東西!更無法將整數值寫入 TStringFile,因為它已經是字串型態的檔案。最好是使用 TextFile 的型態,它才能寫入各種不同形態的內容。
Line 20: Line 20:
 
IO 是 Pascal 專門用來處理檔案用的。他通常用來對付錯誤訊息。
 
IO 是 Pascal 專門用來處理檔案用的。他通常用來對付錯誤訊息。
 
當用來當編譯器的指令時,你可以這麼用:
 
當用來當編譯器的指令時,你可以這麼用:
<Delphi>{$I-} // 關閉檢查。這會使所有錯誤回報轉向存在 IOResult 這個變數裡
+
<syntaxhighlight lang=pascal>{$I-} // 關閉檢查。這會使所有錯誤回報轉向存在 IOResult 這個變數裡
{$I+} // 開啟回來</Delphi>
+
{$I+} // 開啟回來</syntaxhighlight>
  
 
當關閉 IO 時他所有的輸出都會轉到 IOResult 變數裡。他是主要數字型態的變數 (cardinal type; Numbers)。所以如果你想要對它做寫入,你得使用 IntToStr 函式。不同的數字代表不同的錯誤。你可以參看這裡來了解每個不同的錯誤:[http://www.efg2.com/Lab/Library/Delphi/IO/IOResult.htm]
 
當關閉 IO 時他所有的輸出都會轉到 IOResult 變數裡。他是主要數字型態的變數 (cardinal type; Numbers)。所以如果你想要對它做寫入,你得使用 IntToStr 函式。不同的數字代表不同的錯誤。你可以參看這裡來了解每個不同的錯誤:[http://www.efg2.com/Lab/Library/Delphi/IO/IOResult.htm]
Line 58: Line 58:
 
以下為處理一型態是 TextFile 的文字檔的完整範例:
 
以下為處理一型態是 TextFile 的文字檔的完整範例:
  
<Delphi>program FileTest;
+
<syntaxhighlight lang=pascal>program FileTest;
  
 
{$mode objfpc} // 永遠都不要放記這個
 
{$mode objfpc} // 永遠都不要放記這個
Line 80: Line 80:
 
   CloseFile(FileVar);
 
   CloseFile(FileVar);
 
   ReadLn;
 
   ReadLn;
end.</Delphi>
+
end.</syntaxhighlight>
  
 
現在你再用任何的文字編輯器來開啟這支文字檔,你會看到一個 Hello 寫在裡面!
 
現在你再用任何的文字編輯器來開啟這支文字檔,你會看到一個 Hello 寫在裡面!
Line 86: Line 86:
 
在來我們接著加入內容 (編輯它)
 
在來我們接著加入內容 (編輯它)
  
<Delphi>program EditFile;
+
<syntaxhighlight lang=pascal>program EditFile;
  
  
Line 109: Line 109:
 
   CloseFile(File1);
 
   CloseFile(File1);
 
   Readln;
 
   Readln;
end.</Delphi>
+
end.</syntaxhighlight>
  
 
讀取檔案:
 
讀取檔案:
  
<Delphi>program ReadFile;
+
<syntaxhighlight lang=pascal>program ReadFile;
  
  
Line 141: Line 141:
 
   CloseFile(File1);
 
   CloseFile(File1);
 
   Readln;
 
   Readln;
end.</Delphi>
+
end.</syntaxhighlight>
  
在這裡的處理你也可以改用字元替代字串。這會看起來很酷 :D。
+
在這裡的處理你也可以改用字元替代字串。這會讓它看起來很酷 :D。
  
 
=物件導向做法=
 
=物件導向做法=
Line 151: Line 151:
 
==二進位==
 
==二進位==
  
For opening files for direct access TFileStream should be used. This class is encapsulation for system procedures FileOpen, FileCreate, FileRead, FileWrite, FileSeek and FileClose which resides in unit FileUtil. This class is basically platform independent as these procedures have specific implementation for each platform.
+
若要進行直接存取可以使用 TFileStream 。這個類別將系統程序 FileOpen,FileCreate,FileRead,FileWrite,FileSeek 與 FileClose 全都包裝好放置於一起,歸屬於 FileUtil 單元。這個類型基本上算跨平台的,不過不同平台會有一些不同的實作方式。
  
 
[http://www.freepascal.org/docs-html/rtl/sysutils/ioroutines.html IO 例行程序]
 
[http://www.freepascal.org/docs-html/rtl/sysutils/ioroutines.html IO 例行程序]
  
<Delphi>var
+
<syntaxhighlight lang=pascal>var
 
   Buffer: array[0..10000] of Byte;
 
   Buffer: array[0..10000] of Byte;
 
begin
 
begin
Line 165: Line 165:
 
     Free;
 
     Free;
 
   end;
 
   end;
end;</Delphi>
+
end;</syntaxhighlight>
  
  
You can load entire file to memory too if it's size is comparatively smaller than available system memory.
+
如果檔案比起你的系統記憶體比起來小的多,你也可以將整個檔案載入到記憶體內。
  
<Delphi>begin
+
<syntaxhighlight lang=pascal>begin
 
   with TMemoryStream.Create do  
 
   with TMemoryStream.Create do  
 
   try
 
   try
Line 180: Line 180:
 
     Free;
 
     Free;
 
   end;
 
   end;
end;</Delphi>
+
end;</syntaxhighlight>
  
  
==Text files==
+
==文字檔案==
  
In general for text files you can use class TStringList for loading entire file to memory and have simple access their rows.
+
一般針對文字檔你可以使用 TStringList 類別來載入整支檔案到記憶體中,然後一行行來存取。
  
<Delphi>begin
+
<syntaxhighlight lang=pascal>begin
 
   with TStringList.Create do  
 
   with TStringList.Create do  
 
   try
 
   try
Line 195: Line 195:
 
     Free;
 
     Free;
 
   end;
 
   end;
end;</Delphi>
+
end;</syntaxhighlight>
 
 
 
 
[[Category:Tutorials]]
 

Latest revision as of 00:39, 15 February 2020

العربية (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;