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