將文本文件讀入數組

Question

我該如何解讀從磁盤上的文件讀取文本文件到內存中的數組？

而且，我發現使用ReadLn只顯示第一行（似乎有點明顯，因爲它是ReadLn，但我怎麼會去讀取整個文本文件？）

Answer 1

function ReadFile(const FileName: string): string; 
var 
    Strings: TStringList;  
begin 
    Strings := TStringList.Create; 
    try 
    Strings.LoadFromFile(FileName); 
    Result := Strings.Text; 
    finally 
    Strings.Free; 
    end; 
end; 

返回該文件的一個字符串中的內容可以被索引，因此可以被認爲是一個數組。

或許你想要一個字符串數組，而不是字符數組，在這種情況下，最簡單的方法只是直接使用字符串列表：

var 
    Strings: TStringList;  
... 
    Strings := TStringList.Create; 
    try 
    Strings.LoadFromFile(FileName); 
    //can now access Strings[0], Strings[1], ..., Strings[Strings.Count-1] 
    finally 
    Strings.Free; 
    end; 

Answer 2

德爾福 XE開始 2010，您可以使用IOUtils.TFile.ReadAllLines函數用於讀取單行代碼中的文本文件的內容。

class function ReadAllLines(const Path: string): TStringDynArray; 
class function ReadAllLines(const Path: string; const Encoding: TEncoding): TStringDynArray; overload; static;