Hallo.
Ich weiß nicht, wie DU die Daten wegschreibst, aber das hier könnte vom Prinzip her auch bei dir funktionieren:
Delphi-Quellcode:
procedure Log(filename, msg: string);
var
fs: TFileStream;
fm: Word;
begin
if FileExists(fileName)
then fm := fmOpenReadWrite
else fm := fmCreate;
fs := TFileStream.Create(fileName, fm, fmShareDenyWrite);
with fs do
begin
Position := Size;
msg := msg + #13#10;
fs.WriteBuffer(msg[1], Length(msg));
fs.Free;
end;
end;
Grüße vom marabu