System.Variants.TCustomVariantType.Compare
Delphi
procedure Compare(const Left, Right: TVarData;
var Relationship: TVarCompareResult); virtual;
C++
virtual void __fastcall Compare(const TVarData &Left, const TVarData &Right, TVarCompareResult &Relationship);
プロパティ
| 種類 | 可視性 | ソース | ユニット | 親 |
|---|---|---|---|---|
procedure function |
public | System.Variants.pas System.Variants.hpp |
System.Variants | TCustomVariantType |
説明
カスタムバリアント型に関する比較を実装します。
Compare メソッドをオーバーライドすると，カスタムバリアント型がサポートする比較演算子を実装できます。下位クラスは，Compare メソッドまたは CompareOp メソッドのいずれかをオーバーライドして比較演算子を実装できます。
Left は，演算子の左側に表示される値です。
Right は，演算子の右側に表示される値です。
Relationship は，次の表のように Left と Right の間の関係を示す値を返します。
| 値 | オペレーション |
|---|---|
|
crLessThan |
Left は Right より小さい |
|
crEqual |
Left は Right と等しい |
|
crGreaterThan |
Left は Right より大きい |
TCustomVariantType での CompareOp は，不正な演算を示すシステムエラーを生成します。
ヒント： ソートなしで不等価のテストをサポートするカスタムバリアントでは，かわりに CompareOp メソッドをオーバーライドすることには，より大きな意味があります。