Bonjour à tous

La routine CompareDateTime() retourne une valeur définie dans TValueRelationship. Mais où ce type est-il déclaré ?

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
29
30
31
32
33
34
35
36
37
38
39
 
Function F1_Plus_Recent_Que_F2(F1 : string;  F2 : string) : boolean;
Var   Val_Retour : boolean;
//      Retour_Comparaison : TValueRelationship;  // Je ne peux pas l'utiliser : type non déclaré selon Delphi
      Retour_Comparaison : integer;
 
begin
{
VALEURS RETOURNEES PAR LA ROUTINE CompareDateTime :
 
LessThanValue si A est antérieur à B.
EqualsValue si A et B sont égaux.
GreaterThanValue si A est postérieur à B.
 
}
 
    Date_F1 := TimeModificationFichier(F1);  // TimeModificationFichier() : lecture du dernier accès disque
    Date_F2 := TimeModificationFichier(F2);
    Retour_Comparaison := CompareDateTime(Date_F1, Date_F2);  // Date_F1 et Date_F2 : TDateTime
 
    case Retour_Comparaison OF
 
        -1:
            begin
                  Val_Retour := False; // F1 PLUS ANCIEN
            end;
        0 :
            begin
                  Val_Retour := False; // F1 et F2 : mêmes dates
            end;
        1 :
            begin
                  Val_Retour := True;  // F1 plus récent que F2
            end;
    end;
 
    F1_Plus_Recent_Que_F2 := Val_Retour;
 
end;
La fonction retourne une fausse valeur. D'où l'intérêt d'utiliser TValueRelationship.

Merci