Discussion :

[bisounoursbleu]

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 :

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

1
2
3
4
5
6
type
  TTreeData = record
  Text : Widestring;
  ImageIndex : integer;
  end;
PTreeData = ^TTreeData;

Et la procédure à utiliser :

Code :

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

1
2
3
4
procedure TMaForme.MonArbreFreeNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode);
begin
end;

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

Merci,

WL[/code]

[tixu]

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 :

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

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;

[sjrd]

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

Code :

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

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

[tixu]

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

Code :

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

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 :

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

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

[bisounoursbleu]

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 :

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

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 :

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

XMLTree.NodeDataSize := SizeOf(PTreeData);

à la création de ma Form.

Voilà.

Merci

WL

[tixu]

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

Code :

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

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 :

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

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 :

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

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

tout simplement

[bisounoursbleu]

Ca marche nickel !

Merci beaucoup

WL