Nochmal FileAge

[himitsu]

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 TFile?

Du kannst dir natürlich auch ein eigenes FileAge bauen, was TDataTime als Result hat und dass intern die neue Version von FileAge 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.