Daten von TStrings an eine Datei anhängen

[Matze]

shmia stellt in diesem Beitrag eine Prozedur vor, mit dieser man Daten von Objekten, die von TStrings abgeleitet wurden (Beispiel: TStringList) an eine schon bestehende Datei anhängen kann.

Delphi-Quellcode:

procedure AppendTStringsToFile(sl: TStrings; const filename: string);
var
  stream : TStream;
const
  SO_END=2;
begin
  if FileExists(filename) then
  begin
    stream := TFileStream.Create(filename, fmOpenReadWrite or fmShareDenyWrite);
    stream.Seek(0, SO_END);
  end
  else
    stream := TFileStream.Create(filename, fmCreate or fmShareDenyWrite);

  try
    sl.SaveToStream(stream);
  finally
    stream.Free;
  end;
end;