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;