TCustomVariantType

type TCustomVariantType = class(TObject,IInterface)

protected

  function QueryInterface(); virtual;

  function _AddRef;

  function _Release;

  procedure SimplisticClear();

  procedure SimplisticCopy();

  procedure RaiseInvalidOp;

  procedure RaiseCastError;

  procedure RaiseDispError;

  function LeftPromotion(); virtual;

  function RightPromotion(); virtual;

  function OlePromotion(); virtual;

  procedure DispInvoke(); virtual;

  procedure VarDataInit();

  procedure VarDataClear();

  procedure VarDataCopy();

  procedure VarDataCopyNoInd();

  procedure VarDataCast();

  procedure VarDataCastTo();

  procedure VarDataCastToOleStr();

  procedure VarDataFromStr();

  procedure VarDataFromOleStr();

  function VarDataToStr();

  function VarDataIsEmptyParam();

  function VarDataIsByRef();

  function VarDataIsArray();

  function VarDataIsOrdinal();

  function VarDataIsFloat();

  function VarDataIsNumeric();

  function VarDataIsStr();

public

  constructor Create();

  destructor Destroy; override;

  function IsClear(); virtual;

  procedure Cast(); virtual;

  procedure CastTo(); virtual;

  procedure CastToOle(); virtual;

  procedure Clear(); virtual; abstract;

  procedure Copy(); virtual; abstract;

  procedure BinaryOp(); virtual;

  procedure UnaryOp(); virtual;

  function CompareOp(); virtual;

  procedure Compare(); virtual;

  property VarType: TVarType; [r]

end;

TCustomVariantType

TObject,IInterface