Zeilen hinzufügen - Probleme mit grossen Logdateien

[marabu]

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