Datum und Uhrzeit in Logdatei schreiben

[Delphijunkie2006]

Hallo, ganz simple Frage, wie mach ich einen Datum und Uhrzeitstempel,
nach jedem Append der Logdatei?

..writeln (memo1)..

writeln (datetimetostr(date+time) <<< geht ja leider nicht

[ManuMF]

Hallo,

Delphi-Quellcode:

TStrings.Add(DateTimetoStr(Now));

Wobei TStrings z.B. Memo1.Lines ist.

Gruß,
ManuMF

[mkinzler]

Delphi besitzt eine spezielle Variable Now, welche den aktuellen Zeitstempel enthält

[Edit: war zu langasm]

[marabu]

Ich würde den Zeitstempel nicht hinterher schreiben:

Delphi-Quellcode:

procedure Log(sText: String; s: TStrings);
begin
  s.Add(Format('%s: %s', [DateTimeToStr(Now), sText]));
end;

Grüße vom marabu

[Delphijunkie2006]

Delphi-Quellcode:

writeln(txtfile, (datetimetostrstr(now)));

das klappt nicht, inkompatible Typen kommt da raus.

Meine Idee war folgende:

Delphi-Quellcode:

procedure writelog (memo1: tmemo);
var memotxt: textfile; i : integer;
begin if not fileexist ('C:\log.log') then begin
memo1.lines.savetofile('C:\log.log') end else
assignfile (memotxt, 'C:\log.log'); append(memotxt);
for i:= 0 to (memo1.lines.count -1) do
writeln (memotxt, memo1.lines[i])  >>>>> hier müßte der Zeistempel hin<<<<<
; closefile(memotxt);
end;
end;

Nun wie implementiere ich "Now" nun am besten?

[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

[Delphijunkie2006]

Prima! Vielen Dank.