Datei wird beim erstellen gelöscht

[Sprint]

Zitat von RavenIV:

also sollte die datei doch nicht jedesmal neu erstellt werden.

Aber so wie es aussieht, bist du zu einem anderem Ergebnis gekommen.

Delphi-Quellcode:

procedure TFoRemotetest.IBSQLMonitorSQL (EventText: string; EventTime: TDateTime);
var
  FileName: String;
  Handle: Integer;
begin

  FileName := 'D:\db_i.log';

  if FileExists(FileName) then
    Handle := FileOpen(FileName, fmOpenReadWrite)
  else
    Handle := FileCreate(FileName);

  if Handle <> -1 then
  begin
    FileSeek(Handle, 0, 2);
    FileWrite(Handle, EventText[1], Length(EventText));
    FileClose(Handle);
  end;

end;