Problème avec Virtual Treeview

Bonjour,

J'ai petit souci... Lorsque je tente de supprimer un noeud, l'application me renvoie l'erreur "Invalid Pointer Opération"....
A ce moment là je ne panique pas je regarde le très bon tutorial livré avec VT où je lis qu'il faut apparement libérer l'espace mémoire sur l'événement OnFreeNode via la fonction "Free" lorsque l'on souhaite supprimer un noeud.
Mais voilà étant donné que je n'est pas pompé caractère par caractère le code du tutorial et bien je suis perdu et je n'arrive à accéder à cette fonction Free...
Voici le type de noeud que j'ai déclaré :

Code:

---

1 2 3 4 5 6

type TTreeData = record Text : Widestring; ImageIndex : integer; end; PTreeData = ^TTreeData;

---

Et la procédure à utiliser :

Code:

---

1 2 3 4

procedure TMaForme.MonArbreFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode); begin end;

---

Donc si quelqu'un peut m'aider...

Merci,

WL[/code]

difficile de se faire une opinion avec si peu d'info ;)
comment inseres-tu tes données a tes nodes??

note que le freenode n'est utile que si tu as ajouté des données en creant un nouveau pointer.
sinon c'est inutile.



mais vu d'ici tu devrais te servir plutot d'un record appelant la classe de donnée

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

type tnodedata = class public Text : Widestring; ImageIndex : integer; published constructor create({tes parametres}); (destructor si tu en a besoin) end;   TTreeData = record data:tnodedata, end; PTreeData = ^TTreeData;

---

Si tu fais ça, autant placer directement la valeur pointant sur la classe dans le champ Data :

Code:

---

Node.Data := MesNodeData; // avec MesNodeData : TNodeData (classe)

---

Citation:

---

Envoyé par sjrd

Si tu fais ça, autant placer directement la valeur pointant sur la classe dans le champ Data :

Code:

---

Node.Data := MesNodeData; // avec MesNodeData : TNodeData (classe)

---

---

c'est exactement l'idée, mais il n'est pas recommandé de le faire directement . il vaut mieux utiliser la methode addchild, qui permet une meilleure allocation de la memoire.

la definition d'un record pour le data est necessaire car il faut au prealable indiquer quelle est la taille de Data et ce qu'il contient (data n'est pas defini par defaut par VT, et donc n'est pas forcement un pointeur). Avec le record qui pointe sur le tnodedata, on est sur que la taille ne varie jamais (et est optimisée).

Code:

---

node:=MyTree.AddChild(nil,TNodeData.create{param});

---

Merci, je vais essayer de suivre vos instruction bien que je n'ai pas encore tous saisie.... Enfin il n'est 07:40 c'est le début de la journée et je suis encore un peu endormie donc je ne perd pas espoir.

Sinon pour à la première question qui m'a été posé concernant la façon dont j'insérais mes noeuds, voici mon code (il faut savoir que je travail à partir d'un fichier XML)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure TwinGestProjet.actMajTreeTacheExecute(Sender: TObject); var NodeT,NodeP:PVirtualNode; NodeData:PTreeData; i,j:integer;   begin for i:=0 to lstTache.Count - 1 do begin NodeT := XMLTree.AddChild(nil); NodeData := XMLTree.GetNodeData(NodeT); NodeData.Text := lstTache.Items[i].NomTache; NodeData.ImageIndex := 0; for j:=0 to lstTache.Items[i].Probleme.Count - 1 do begin NodeP := XMLTree.AddChild(NodeT); NodeData := XMLTree.GetNodeData(NodeP); NodeData.Text := lstTache.Items[i].Probleme.Items[j].NomProbleme; NodeData.ImageIndex := 1; end; end; end;

---

avec un :

Code:

---

XMLTree.NodeDataSize := SizeOf(PTreeData);

---

à la création de ma Form.

Voilà.

Merci

WL

ok alors utilise les declarations que je t'ai proposé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

type tnodedata = class public Text : Widestring; ImageIndex : integer; published constructor create(T: Widestring;I : integer); end;   TTreeData = record mydata:tnodedata, end; PTreeData = ^TTreeData;     implementation   constructor tnodedata.create(T: Widestring;I : integer); begin Text : =t; ImageIndex := i; end;

---

ce qui te permet, au lieu de faire ca:

Code:

---

1 2 3 4

NodeT := XMLTree.AddChild(nil); NodeData := XMLTree.GetNodeData(NodeT); NodeData.Text := lstTache.Items[i].NomTache; NodeData.ImageIndex := 0;

---

de de creer les nodes de cette facon:

Code:

---

NodeT := XMLTree.AddChild(nil, tnodedata.create(lstTache.Items[i].NomTache,0));

---

tout simplement

Ca marche nickel !

Merci beaucoup

WL