Bonjour

Sous XE2, la propriété time du TSearchRec est dépréciée. Je pensais remplacer dans mon code par
Code : Sélectionner tout - Visualiser dans une fenêtre à part
System.SysUtils.DateTimeToFileDate(s.TimeStamp)
Sauf que le code suivant montre des valeurs totalement différentes.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
var
 s: TSearchRec;
begin
 findfirst('d:', faArchive, s);
 ShowMessage(IntToStr(s.Time) + #13#10 + IntToStr(System.SysUtils.DateTimeToFileDate(s.TimeStamp)));
Question: J'ai mal codé le remplacement ? Ou bien c'est normal et j'ai raté quelque chose ?

Papy !