Thema: Delphi Nochmal FileAge

Einzelnen Beitrag anzeigen

Willie1

Registriert seit: 28. Mai 2008
668 Beiträge
 
Delphi 10.1 Berlin Starter
 
#7

AW: Nochmal FileAge

  Alt 8. Nov 2020, 17:13
Jetzt will ich es wissen:
Delphi-Quellcode:
function FileAge(const fn: TFilename): TDateTime; overload;
begin
  if not FileAge(fn, Result) then Result := 0;
end;

function File_Age(const fn: TFilename): TDateTime;
begin
  try
    Result := TFile.GetCreationTime(fn);
  except
    Result := 0; //jeder Fehler wird auf 0 gesetzt!
  end;
end;
Bei der zweiten Methode muss ich IOUtils einbinden.
Sind die beiden Methoden jetzt gleichwertig? W.
Gut hören kann ich schlecht, schlecht sehen kann ich gut - Ersteres stimmt nicht, das zweite schon.
  Mit Zitat antworten Zitat