delphi怎么读取文本文件

在Delphi中，可以使用TStreamReader类来读取文本文件。下面是一个示例代码，演示了如何读取文本文件的内容：

var
  FileStream: TFileStream;
  StreamReader: TStreamReader;
  Line: string;
begin
  // 创建TFileStream对象来打开文本文件
  FileStream := TFileStream.Create('C:\path\to\file.txt', fmOpenRead);
  
  try
    // 创建TStreamReader对象并将TFileStream对象传递给它
    StreamReader := TStreamReader.Create(FileStream);
    
    try
      // 逐行读取文本文件的内容
      while not StreamReader.EndOfStream do
      begin
        Line := StreamReader.ReadLine;
        // 处理每一行的内容
        ShowMessage(Line);
      end;
    finally
      // 释放TStreamReader对象
      StreamReader.Free;
    end;
  finally
    // 关闭并释放TFileStream对象
    FileStream.Free;
  end;
end;

上述代码中，我们首先创建一个TFileStream对象来打开文本文件。然后，我们创建一个TStreamReader对象并将TFileStream对象传递给它，以便读取文件的内容。

接下来，我们使用while循环和StreamReader的EndOfStream属性来检查是否到达了文件的末尾。在每次循环中，我们调用StreamReader的ReadLine方法来读取一行文本，并将其存储在Line变量中。然后，我们可以对每一行的内容进行处理。

最后，记得释放TStreamReader和TFileStream对象，以释放资源。