Thema: Delphi Nochmal FileAge

Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#2

AW: Nochmal FileAge

  Alt 5. Nov 2020, 19:54
Abgesehn davon dass der "Integer" der alten Version ein paar "unglückliche" Beschränkungen hat, kannst das Alte natürlich noch so lange benutzen, wie es noch nicht rausgeflogen ist (und Delphi ist sehr langsam, mit sowas wie Altes raus oder Neues rein)
Oder wie wäre es mit den Dateidatumsfunktionen aus Delphi-Referenz durchsuchenTFile?

Du kannst dir natürlich auch ein eigenes FileAge bauen, was TDataTime als Result hat und dass intern die neue Version von Delphi-Referenz durchsuchenFileAge aufruft/kapselt.
Und dann bauchst nur noch FileDateToDateTime(FileAge durch deine neue Version zu ersetzen.





ABER was du unbedingt tuen solltest, ist das "Result" des neuen FileAge prüfen, denn ist das False, dann ist der Datumswert undefiniert (per Definition ungültig/zufällig oder sonstwas).
z.B. bei IF NOT das Datum auf einen Standardwert ala 0 setzen oder eine Exception werfen.



PS: Mit FormatDateTime gibt es hier ebenfalls eine Variante direkt mit Sting als Result.
$2B or not $2B

Geändert von himitsu ( 5. Nov 2020 um 19:58 Uhr)
  Mit Zitat antworten Zitat