Discussion :

[der§en]

Bonjour,

Le compilateur me disant que utilisation du premier format de FileAge est obsolète, je teste le deuxième format sauf que je n'ai pas les mêmes valeurs en sortie.



Est-ce normal ou bien, c'est un bug ?

Voici le bout de code qui est utilisé dans mon exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
procedure TForm1.Button1Click(Sender: TObject);
var
  V1, V2: TDateTime;
  I1, I2: LongInt;
  Fichier: string;
begin
  Fichier := Application.ExeName;
 
  I1 := FileAge(Fichier);
 
  V1 := FileDateToDateTime(I1);
 
  FileAge(Fichier, V2);
 
  I2 := DateTimeToFileDate(V2);
 
  Edit1.Text := FloatToStr(V1);
  Edit2.Text := FloatToStr(V2);
 
  Edit3.Text := DateTimeToStr(V1);
  Edit4.Text := DateTimeToStr(V2);
 
  Edit5.Text := I1.ToString;
  Edit6.Text := I2.ToString;
 
  Edit7.Text := FloatToStr(I1 - I2);
end;