Delphi while 循环体中如何判断是最后一行

在Delphi中，如果您正在使用类似于 TStreamReader.ReadLine 的方法来读取文本文件，那么可以使用 TStreamReader.EndOfStream 属性来判断是否已经读取到了文件的末尾。

例如，您可以将代码编写为以下形式：

var
  MyStreamReader: TStreamReader;
  CurrentLine: string;
begin
  MyStreamReader := TStreamReader.Create('myfile.txt');
  try
    while not MyStreamReader.EndOfStream do
    begin
      CurrentLine := MyStreamReader.ReadLine;
      
      // 处理当前行
      if not MyStreamReader.EndOfStream then
      begin
        // 如果不是最后一行，可以在这里做些事情
      end
      else
      begin
        // 如果是最后一行，可以在这里做些事情
      end;
    end;
  finally
    MyStreamReader.Free;
  end;
end;

在上面的示例中，我们首先创建一个 TStreamReader 对象来读取名为 "myfile.txt" 的文本文件。然后，我们使用 while 循环遍历文件中的每一行，同时使用 TStreamReader.EndOfStream 属性来判断是否已经到达文件的末尾。在循环体中，我们检查当前行是否是最后一行，如果是，我们可以在 else 块中执行特定的代码。如果不是，则可以在 if 块中执行其他代码。