delphi - 如何防止 TStrings.SaveToFile 创建最终的空行？

Question

我有一个文件.\input.txt，如下所示:

aaa
bbb
ccc

如果我使用 TStrings.LoadFromFile 阅读它并使用 TStrings.SaveToFile 将其写回(即使不应用任何更改) ，它会在输出文件的末尾创建一个空行。

var
  Lines : TStrings;
begin
  Lines := TStringList.Create;
  try
    Lines.LoadFromFile('.\input.txt');

    //...

    Lines.SaveToFile('.\output.txt');
  finally
    Lines.Free;
  end;
end;

使用 TStrings.Text 可以观察到相同的行为属性将返回一个末尾包含空行的字符串。

Answer 1

对于 Delphi 10.1 及更高版本，有一个属性 TrailingLineBreak 控制此行为。

When TrailingLineBreak property is True (default value) then Text property will contain line break after last line. When it is False, then Text value will not contain line break after last line. This also may be controlled by soTrailingLineBreak option.