Logfile Speichern funktioniert nur bedingt...

[Chaosente]

Also ich benutze folgenden code um mein Log zu speichern allerdings soll er am Ender der Datei weiterschreiben wenn noch der selbe Tag ist, tut er aber nciht ich weis nciht warum...

Delphi-Quellcode:

var
  LogFile: TextFile;
begin
Log.Lines.Add('---------------------------------------------------');
Log.Lines.Add('Log wird gespeichert: am '+DateTostr(date)+' um '+TimeStr+' Uhr.');
Log.Lines.Add('---------------------------------------------------');
if not DirectoryExists('data\log')
  then CreateDir('date\log');

  AssignFile(LogFile,'data\log\'+DateToStr(Date)+'.log');
  ReWrite(LogFile);
  Closefile(LogFile);
  append(LogFile);
  writeln(logfile, log.Text);
  closefile(logfile);

end;