FileAge ist veraltet - alternative

[himitsu]

Mal 'be Frage,

in Delphi XE nutze ich eigentlich das neue FileAge, aber dennoch erhalte ich diese Warnung.

Ist das nur bei mir so, oder stimmt da wirklich was nicht?

Delphi-Quellcode:

function TDataServerFileMethods.FileDate(Filename: String): TDateTime;
begin
  SysUtils.FileAge(RootDirectory + Filename, Result);
end;

Zitat:

[DCC Warnung] DataServer_Files.pas(51): W1000 Symbol 'FileAge' ist veraltet

Update 1 + Help Update 1 sind installiert

[generic]

Wird nicht heute über FindFile gegangen oder über GetFileInformationByHandle ?

[himitsu]

FileAge geht intern über GetFileAttributesEx und falls das nicht geht, dann alternativ über FindFirstFile.

Aber dennoch gibt es zwei Versionen von FileAge.
Die Alte ist als deprecated deklariert und die Neue nicht.
Ich bekomm aber bei der Neuen dennoch diese Warnung.

Delphi-Quellcode:

function FileAge(const FileName: string): Integer; overload; deprecated;

function FileAge(const FileName: string; out FileDateTime: TDateTime;
  FollowLink: Boolean = True): Boolean; overload;

[Stevie]

Nimm den Unitnamen vor der Funktion weg, dann gibts keine Warning.

[s.h.a.r.k]

Vielleicht hilft dir ja das hier:

Zitat von http://docwiki.embarcadero.com/RADStudio/de/VCL-_und_RTL-%C3%84nderungen_f%C3%BCr_XE:

# TimeStamp wurde zu TSearchRec hinzugefügt:

SysUtils.TSearchRec verfügt nun über die Eigenschaft TimeStamp, die einen TDateTime-Wert für die vereinfachte Verwendung bei plattformübergreifenden Anwendungen mit FindFirst/FindNext zurückgibt.

[himitsu]

Als anfangs noch das alte FileAge drin war, da gab es ohne den Namespace eine nette Endlosshleife.
Aber stümmt, ohne geht's.

s.h.a.r.k: GetFileAttributesEx ist aber schneller, als FindFirstFile/FindFirst.
FileAge nutzt nicht Dieses umsonst vorrangig.