[TreeNode] Peut-on stocker un ptr d'interface ds prop .Data?

Bsr,

Tout est dans le titre


Si j'ai

Code:

---

IMonObjet := TMonObjet.Create;

---

et par ailleurs un TTreeView
comment puis-je écrire (est-ce conseillé ?) :

Code:

---

1 2	Node := Tree.Add(nil,'RACINE'); Node.Data := IMonObjet; <== évidemennt sous cette forme ca ne fctn pas !!!

---

Si j'y parviens l'interface sera-t-elle libérée lors de la destruction du node ?


Merci

@+
Php

Salut,

Tu dois revoir la notion d'Interface ds l'aide de Delphi.

Bon, pour l'instance de classe ou tout simplement l'objet IMonObjet, c'est une référence, donc, il est ligitime d'ecrire Node.Data := IMonObjet, ça compile sans aucun problème, pas la peine de l'essayer.

Bon, je pense que t'as un problème pour manipuler apres le Data, bon tu dois tout simplement l'affecter à une variable du meme type d'origine, dans ton example TMonObjet, exemple :

Code:

---

1 2 3 4 5 6 7 8

procedure Utiliser(Node: TTreeNode); var tmp: TObject; begin tmp := Node.Data; ShowMessage(tmp.ClassName); end;

---

Pour ta dernière question, si je libère un TTreeNode, est ce que son contenu est détruit automatiquement? la rép est Non, meme si dans le code de la méthode TTreeNode.Destroy figure un Data := nil, donc avant de détruir ton TreeNode, tu dois appeler un Free si c'est un TObject, ou un Free si c'est un structure que tu alloues dynamiquement.

Ce que tu veux faire est certes possible, mais certainement pas fonctionnel.

L'astuce consiste en créer une classe dont le seul champ est une variable du type de ton interface, et à placer la ref d'un objet de cette classe dans Data. À noter qu'il faut que le destructeur de cette classe mette bien à nil la ref d'interface.
N'oublie pas qu'il faut bien libérer ton objet avant de supprimer ton noeud, car cela n'est pas automatique :!:

Merci, je m'en doutais

ils auraient qd même pu inclurent une propriété IData de type IInterface dans leur composant chez Borland ... dommage ils se sont simplement contenter de warpper les composants Windows.


Je vais me contenter des objets donc

@+
Php