Discussion :

[jobigoud]

J'ai une classe générique et je voudrais l'instancier seulement avec la bonne sous classe, après un test.

Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

gen : TGenerique;

puis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

gen := TSpecialisee.Create;

Etant entendu que TSpecialisee dérive de TGenerique.
Mais l'objet gen est resté générique... Je n'ai pas accès aux champs et méthodes de TSpecialisee, je suis obligé de caster :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TSpecialisee(gen).methode_specialisee();

C'est normal docteur ?
Ce qui m'inquiète c'est que j'ai rien trouvé ni dans la FAQ, ni sur Google, ni nulle part...

[sjrd]

Oui c'est normal. Le compilateur ne sait sur gen que le fait qu'il est un TGenerique, donc tu ne peux utiliser que les propriétés/méthodes de TGenerique, à moins de caster.

[jobigoud]

Merci pour cette réponse éclair :-)

J'espère que le compilo a bien compris que l'objet était maintenant un TSpecialise parce que cette classe a plus de champs et je ne voudrais pas taper dans la mémoire non initialisée...

Quand je fait gen.Free, il faut que je caste aussi ?

[e-ric]

Salut

Le polymorphisme ne s'applique que sur les méthodes et propriétés de TSpecialise déclarées dans TGenerique. Toutes les propriétés et méthodes déclarées dans TSpecialise ne peuvent être invoquées dans TGenerique que grâce à un cast car elles ne sont pas polymorphiques par définition (elles sont spécifiques à ta sous-classe).

L'appel de Free ne pose pas de problème car c'est une méthode déclarée dans TObject et donc utilisable telle quelle.

Important : Si la méthode TSpecialise.Destroy a été surchargée, elle doit être déclarée en override pour fonctionner correctement dans ton contexte (invocation depuis une référence de type ancêtre Tgenerique).

Cdlt

e-ric