Datum und Uhrzeit in Logdatei schreiben

[Andreas_R]

Hallo,

so sollte es klappen:

Delphi-Quellcode:

if FileExists(LogFileName) then
begin
     AssignFile(F, LogFileName);
     Append(F);
     WriteLn(F, 'Programm gestartet am ' + DateToStr(Date) +
                ' um ' + TimeToStr(Now) + ' Uhr');
     for i:= 1 to 80 do Write(F, '-');
     WriteLn(F);
end
   else begin
             AssignFile(F, LogFileName);
             ReWrite(F);
             WriteLn(F, 'Logdatei erstellt am ' + DateToStr(Date) +
                        ' um ' + TimeToStr(Now) + ' Uhr');
             for i:= 1 to 80 do Write(F, '-');
             WriteLn(F);
   end;

Gruß Andreas