Das geht auch mit Streams:
Delphi-Quellcode:
function AddStringToFile(const s: string; const filename: string; newline: boolean=true)
var
filestream: tfilestream;
nl: string;
begin
filestream := tfilestream.create(filename,fmCreate);
try
filestream.position := filestream.size;
if newline then
begin
nl := #13#10;
filestream.write(pchar(nl),2);
end;
filestream.write(pchar(s),length(s));
finally
filestream.free;
end;
end;
Aus dem Kopf in den Beitragseditor getippt, also ohne Gewähr.