Utilisation du descendant de TCustomVariantType
Remonter à Copie et effacement des variants personnalisés
Dans la section d'initialisation de l'unité qui définit votre descendant de TCustomVariantType, créez une instance de votre classe. Lorsque vous instanciez votre objet, il se recense automatiquement avec le système de traitement des Variants afin que le nouveau type Variant soit activé. Par exemple, voici la section d'initialisation de l'unité VarCmplx :
Delphi :
initialization
ComplexVariantType := TComplexVariantType.Create;
Dans la section de finalisation de l'unité qui définit votre descendant de TCustomVariantType, libérez l'instance de votre classe. Cela permet de dérecenser automatiquement le type variant. Voici la section finalisation de l'unité VarCmplx :
Delphi :
finalization
FreeAndNil(ComplexVariantType);