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;
Partager