TStringlist SavetoFile

[malabarista]

Hallo,

bei TSTringlist kann man mittels SavetoFile immer eine Stringliste in eine Datei schreiben.
Ich möchte aber diese Stringliste immer an eine Datei anfügen (=append), statt neu hineinschreiben.
Gibt es dafür auch eine Funktion ?

[MacWomble]

Ich denke, das geht nur mit zeilenweisem Schreiben:
https://www.experts-exchange.com/questi ... elphi.html

[wp_xyz]

Oder in einen FileStream schreiben, der zu Beginn des Schreibens ans Ende vorgespult wird:

Code: Alles auswählen

var
  stream: TFileStream;
...
  if FileExists(AFileName) then
    stream := TFileStream.Create(AFilename, fmOpenWrite)
  else
    stream := TFileStream.Create(AFilename, fmCreate);
  try
    stream.Position := stream.Size;
    StringList.SaveToStream(stream);
  finally
    stream.Free;
  end; 

[sstvmaster]

... ans Ende vorgespult wird ...

Na zum Glück haben wir nicht mehr solche Speicher, sonst würde das "Vorspulen" etwas länger dauern.
https://upload.wikimedia.org/wikipedia/ ... drives.jpg

[malabarista]

ok, - alles klar.
Dankeschön !