Discussion :

[Andry]

Salut à tous,

Comment parcourir les noeuds d'un TreeView.

Merci

[Hauwke]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var
i:integer;
begin
 For i:= 0 to Treeview1.Items.Count-1 do  // On parcours tous les items
 try
 // Traîtement
 if Treeview1.Selections[i].ClassType = TTreenodes then  // Chouette celui là c'est un noeud!
  begin
  // Traitement de ton noeud   avec sans doute HasChlid, Hasparent
  end;
 finally
  // blabla de libération
 end;
end;

Cordialement,
Hauwke

[cpdump]

Il y a plusieurs solutions :

Soit avec Treeview1.Items[]
Soit en partant de la racine et en faisant un parcours récursif de l'arbre avec les fils de chaque TTreeNodes.

[Andry]

En faites, c'est cette iteration que j'arrive pas à construire : je voudrais recuperer les noeuds sans enfants pour effectuer un traitement.

Merci

[Hauwke]

Bonjour,

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
Var 
i:integer; 
begin 
 For i:= 0 to Treeview1.Items.Count-1 do  // On parcours tous les items 
 try 
 // Traîtement 
 if (Treeview1.selections[i].haschild=false)  then  // Un noeud et il a pas d'enfant! 
  begin 
  // Traitement de ton noeud
  end;
Treeview1.next; 
 finally 
  // blabla de libération 
 end; 
end;

Pas testé mais ça doit marcher
Cordialement,
Hauwke