Hat vielleicht jemand eine Logger
unit mit der ich Resultate in eine Datei schreiben kann?
Falls nicht muss ich selbst was schreiben.
Delphi-Quellcode:
procedure Log(Text:string);
var
F : TextFile;
FileName : String;
dt:string;
begin
FileName := ExtractFilePath(ParamStr(0)) + 'Log.txt';
AssignFile(F, FileName);
if FileExists(FileName) then
Append(F)
else
Rewrite(F);
dt:=DateToStr(Date);
dt:=dt+' / '+TimeToStr(Time);
WriteLn(F, dt, ' : ', text);
CloseFile(F);
end;
Das ist mir etwas zu einfach. (vielleicht mit mehr Möglichkeiten)
Vielleicht hat ja jemand etwas besseres (keine Komponente) und D2010