Memo an Textdatei anhängen

[marabu]

Hi,

hier noch eine Lösung, welche bei größeren Dateien etwas ökonomischer arbeitet:

Delphi-Quellcode:

procedure AppendLines(const fn: TFileName; lines: TStrings);
var
  s: TStream;
begin
  s := TFileStream.Create(fn, fmOpenWrite or fmShareDenyWrite);
  try
    s.Position := s.Size;
    lines.SaveToStream(s);
  finally
    s.Free;
  end;
end;

Freundliche Grüße