Comment obtenir tout les noeud de meme niveau d'un treeview?

**Mickey.jet** · 29/06/2006, 10h49

Bonjour.

Voila j'ai un programme qui utilise un treewview de cette manière:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
   bibliotheque
          |__ étagère 1
          |          |__Livre1
          |          |__Livre2
          |          |__Livre n
          |
          |__étagère n
                      |__Livre 1
                      |__Livre n

et j'arrive a récupérer tout les noeuds mais je n'arrive pas à répérer tout les noeud étagere (sous forme de TStringList par exemple) et pour chaque noeud étagère tous les noeuds Livre

Si cela est possible comment dois je faire (y a t il une propriété du treeview qui le permet?)?

Merci d'avance

**Hauwke** · 29/06/2006, 13h10

Envoyé par Mickey.jet

Bonjour.
... j'arrive a récupérer tout les noeuds mais je n'arrive pas à répérer tout les noeud étagere (sous forme de TStringList par exemple) et pour chaque noeud étagère tous les noeuds Livre

Si cela est possible comment dois je faire (y a t il une propriété du treeview qui le permet?)?

Merci d'avance

Oui, en travaillant sur la proprièté "level" du TTreeView. Dans votre cas, la bibliothéque a un level=0, les étagéres, un level=1, les livres, un level=2
etc..
Cordialement,
Hauwke

**Tardiff Jean-François** · 29/06/2006, 13h52

Bonjour,

Si vous avez le noeud bibliotheque, vous pouvez aussi utiliser la propriété Item du noeud (accés a la liste des noeuds enfants).

**Mickey.jet** · 29/06/2006, 14h05

ok ca ca marche nickel merci...
Encore une ptite question pour la récupération des noeud je voudrais dire...
"Récupérer tout les noeud jusquà la fin" cela sous entend que je connaisse la taille (le nombre d'item dans le treeview) pour le mettre dans un for par exemple.

Ceci est il possible? Peux on obtenir le nombre d'element d'un treeview?

Merci.

**Mickey.jet** · 29/06/2006, 18h00

en fait ca marche pas... je n'arrive pas a me servire du level.

Voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var
 iNiveau, iCompteur : integer;
 noeud  : TTreeNode;
begin
  for iCompteur :=0 to Treeview1.Items.Count-1 do
   begin
        noeud := Treeview1.Items[iCompteur];
        iNiveau := noeud.Level;
   end;

iNiveau vaut toujours 0...

Quelqu'un voit il pourquoi?

**zarbouine** · 29/06/2006, 18h14

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var
 iNiveau, iCompteur : integer;
 noeud  : TTreeNode;
begin
  for iCompteur :=0 to Treeview1.Items.Count-1 do
   begin
        noeud := Treeview1.Items[iCompteur];
        iNiveau := noeud.Level;
   end;

iNiveau vaut toujours 0...

Quelqu'un voit il pourquoi?

[/QUOTE]

chez moi ça marche sans passer par un ttreenode intermédiaire

Code :

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

1
2
3
4
5
6
7
8
 
var
 iNiveau, iCompteur : integer;
begin
  for iCompteur :=0 to Treeview1.Items.Count-1 do
   begin
        iniveau := Treeview1.Items[iCompteur].level;
   end;

**Mickey.jet** · 29/06/2006, 18h40

ben meme comme ca j'ai toujours 0...

**Mickey.jet** · 30/06/2006, 08h31

Personne ne peut m'aider??

**Tardiff Jean-François** · 30/06/2006, 08h50

Bonjour,

Peut être

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
 
 
for i := 0 to Treeview1.Items.Count do
  UseLevel(Treeview1.Items[I], 0);
 
 
procedure UseLevel(Node: TTreenode; LevelToUse: Integer);
begin
var
 iNiveau, iCompteur : integer;
 noeud  : TTreeNode;
begin
  for iCompteur :=0 to Node.ItemCount-1 do
   begin
        noeud := Node.Item[iCompteur];
        iNiveau := noeud.Level;
        if iniveau = Level To Use then
             fair le traitement des noeuds du bon niveau
        else if iniveau < LevelToUse then // Verifier les sous-niveaux
           useLevel(Noeud, LevelToUse);
   end; 
end;

**Mickey.jet** · 30/06/2006, 09h22

Ben non le source ne marche pas Tardiff Jean-François

Et de mon coté ca marche toujours pas. Je vous rappelle mon source:

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
23
24
25
26
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
     tnodeNoeud   : TTreeNode;
     iCompteur    : integer;
     iNiveau:integer;
 begin
 
     //récupération de tous les noeuds
     for iCompteur := 1 to TreeView1.Items.Count - 1 do
     begin
            tnodeNoeud := TreeView1.Items[iCompteur];
            iNiveau := TreeView1.Items[iCompteur].Level;
           case iNiveau of
             0: begin
                 //il s'agit de la bibliotheque
                 end;
             1: begin
                 //il s'agit de l'étagère
                 end;
             2: begin
                 //il s'agit d'un livre
                 end;
 
         end;
     end;