Einzelnen Beitrag anzeigen

Chaosente

Registriert seit: 20. Aug 2006
80 Beiträge
 
#1

Logfile Speichern funktioniert nur bedingt...

  Alt 28. Jul 2008, 17:42
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;
  Mit Zitat antworten Zitat