Thema: Delphi results loggen

Einzelnen Beitrag anzeigen

venice2

Registriert seit: 5. Dez 2019
201 Beiträge
 
Delphi 2010 Architect
 
#1

results loggen

  Alt 29. Jul 2020, 20:25
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

Geändert von venice2 (29. Jul 2020 um 20:29 Uhr)
  Mit Zitat antworten Zitat