System.Variants.TCustomVariantType.Compare

• Übergeordnet: 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);

Eigenschaften

Typ	Sichtbarkeit	Quelle	Unit	Übergeordnet
procedure function	public	System.Variants.pas System.Variants.hpp	System.Variants	TCustomVariantType

Beschreibung

Vergleicht diesen mit einem anderen Variant-Typ.

Überschreiben Sie Compare, um die Vergleichsoperatoren für den benutzerdefinierten Variant-Typ zu implementieren. Die Operatoren können in abgeleiteten Klassen durch Überschreiben von Compare oder CompareOp definiert werden.

Left gibt den Wert links des Operators an.

Right gibt den Wert rechts des Operators an.

Relationship gibt das Ergebnis des Vergleichs zurück. Der Parameter kann einen der folgenden Werte annehmen:

Wert	Operation
crLessThan	Left ist kleiner als Right.
crEqual	Left ist geich Right.
crGreaterThan	Left ist größer als Right.

In TCustomVariantType löst CompareOp einen Systemfehler aus, der eine ungültige Operation angibt.

Tip:  Wenn in einem Variantentyp auf Ungleichheit getestet werden soll, überschreiben Sie stattdessen die Methode CompareOp.

Siehe auch

• CompareOp

• CompareValue

• Vergleichsoperationen implementieren