System.Variants.TCustomVariantType.CastToOle
Delphi
procedure CastToOle(var Dest: TVarData; const Source: TVarData); virtual;
C++
virtual void __fastcall CastToOle(TVarData &Dest, const TVarData &Source);
Propriétés
| Type | Visibilité | Source | Unité | Parent |
|---|---|---|---|---|
procedure function |
public | System.Variants.pas System.Variants.hpp |
System.Variants | TCustomVariantType |
Description
Convertit les données au format de ce type Variant personnalisé dans un format utilisable par les Variants COM.
Redéfinissez CastToOle pour modifier la façon dont ce type personnalisé est converti en vue d'une utilisation dans les appels d'interface COM. CastToOle convertit ce type Variant personnalisé dans le type Variant qui présente la plus forte compatibilité avec Automation.
Dest représente un enregistrement TVarData qui renvoie les données du Variant stockées dans un format compatible avec Automation.
Source est un enregistrement TVarData qui représente les données d'un Variant de ce type personnalisé.
Telle qu'implémentée dans TCustomVariantType, CastToOle appelle la méthode OlePromotion pour déterminer le type compatible avec Automation dans lequel Source doit être converti. Elle appelle ensuite la méthode CastTo pour effectuer la conversion.