System.Variants.TCustomVariantType.Compare

• Aller au parent : TCustomVariantType

Delphi

procedure Compare(const Left, Right: TVarData;
var Relationship: TVarCompareResult); virtual;

C++

virtual void __fastcall Compare(const TVarData &Left, const TVarData &Right, TVarCompareResult &Relationship);

Propriétés

Type	Visibilité	Source	Unité	Parent
procedure function	public	System.Variants.pas System.Variants.hpp	System.Variants	TCustomVariantType

Description

Implémente des comparaisons impliquant le type Variant personnalisé.

Redéfinissez Compare pour implémenter tout opérateur de comparaison pris en charge par le type Variant personnalisé. Les descendants peuvent implémenter les opérateurs de comparaison en redéfinissant la méthode Compare ou CompareOp.

Left représente la valeur qui apparaît à gauche de l'opérateur.

Right représente la valeur qui apparaît à droite de l'opérateur.

Relationship renvoie une valeur illustrant la relation entre Left et Right, comme indiqué dans le tableau suivant :

Valeur	Opération
crLessThan	Left est inférieure à Right.
crEqual	Left est égal à Right.
crGreaterThan	Left est supérieur à Right.

Telle qu'implémentée dans TCustomVariantType, CompareOp déclenche une erreur système indiquant une opération incorrecte.

Conseil :  Dans le cas des Variants personnalisés qui prennent en charge un test d'inégalité, mais pas l'ordre, il est préférable de redéfinir plutôt la méthode CompareOp.

Voir aussi

• CompareOp

• CompareValue

• Implémentation d'opérations de comparaison