将文本文件读入数组

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;