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?