delphi - 将文本文件读入数组

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;