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