Làm cách nào để ngăn TStrings.SaveToFile tạo một dòng trống cuối cùng?

Tôi có một tập tin .\input.txtnhư thế này:

aaa
bbb
ccc

Nếu tôi đọc nó bằng cách sử dụng TStrings.LoadFromFilevà viết lại (ngay cả khi không áp dụng bất kỳ thay đổi nào) TStrings.SaveToFile, nó sẽ tạo ra một dòng trống ở cuối tệp đầu ra.

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

    //...

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

Hành vi tương tự có thể được quan sát bằng cách sử dụng thuộc TStrings.Texttính sẽ trả về một chuỗi chứa một dòng trống ở cuối.

Đối với Delphi 10.1 và mới hơn, có một thuộc tính TrailingLineBreakkiểm soát hành vi này.

Khi thuộc tính TrailingLineBreak là True (giá trị mặc định) thì thuộc tính Text sẽ chứa ngắt dòng sau dòng cuối cùng. Khi nó là Sai, thì giá trị Văn bản sẽ không chứa ngắt dòng sau dòng cuối cùng. Điều này cũng có thể được kiểm soát bởi tùy chọn soTrailingLineBreak.

Đối với Delphi 10.1 (Berlin) hoặc mới hơn, giải pháp tốt nhất được mô tả trong câu trả lời của Uwe.

Đối với các phiên bản Delphi cũ hơn, tôi đã tìm ra giải pháp bằng cách tạo một lớp con TStringListvà ghi đè TStrings.GetTextStrhàm ảo nhưng tôi sẽ vui mừng khi biết liệu có giải pháp nào tốt hơn hoặc nếu có ai đó tìm thấy lỗi trong giải pháp của tôi

Giao diện:

  uses
    Classes;

  type
    TMyStringList = class(TStringList)
    private
      FIncludeLastLineBreakInText : Boolean;
    protected
      function GetTextStr: string; override;
    public
      constructor Create(AIncludeLastLineBreakInText : Boolean = False); overload;
      property IncludeLastLineBreakInText : Boolean read FIncludeLastLineBreakInText write FIncludeLastLineBreakInText;
    end;

Thực hiện:

uses
  StrUtils;      

constructor TMyStringList.Create(AIncludeLastLineBreakInText : Boolean = False);
begin
  inherited Create;

  FIncludeLastLineBreakInText := AIncludeLastLineBreakInText;
end;

function TMyStringList.GetTextStr: string;
begin
  Result := inherited;

  if(not IncludeLastLineBreakInText) and EndsStr(LineBreak, Result)
  then SetLength(Result, Length(Result) - Length(LineBreak));
end;

Thí dụ:

procedure TForm1.Button1Click(Sender: TObject);
var
  Lines : TStrings;
begin
  Lines := TMyStringList.Create();
  try
    Lines.LoadFromFile('.\input.txt');
    Lines.SaveToFile('.\output.txt');
  finally
    Lines.Free;
  end;
end;