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;