Utilisation du descendant de TCustomVariantType

De Appmethod Topics
Aller à : navigation, rechercher

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 :

Object Pascal :

 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 :

Object Pascal :

 finalization
 FreeAndNil(ComplexVariantType);

Voir aussi