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对象，以释放资源。

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！