Discussion :

[Bernard B]

Bonjour,

J'ai un pb qui va paraître ridicule à certains, mais je n'y arrive pas.
C'est la première fois que j'utilise un TreeView !!

J'ai un TreeView que je charge à partir d'un fichier texte, il est comme ceci :

N1
--NC1
--NC2
N2
--NC3
N3
--NC4
--NC5...

Les NC sont les noeuds enfants des N bien évidemment.

Je dois le retraduire dans un fichier texte ainsi :

N1|NC1
N1|NC2
N2|NC3
N3|NC4...

Je n'arrive pas à balayer les noeuds et leurs noeuds enfants !

Si vous avez un exemple merci d'avance

[retwas]

Il suffit de parcourir les Items et d'utiliser le Parent, par exemple ici pour les ajouter dans un Memo :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Button1Click(Sender: TObject);
var
   Node     : TTreeNode;
begin
   for Node in TreeView1.Items do
   begin
      // uniquement les noeuds pères
      if Assigned(Node.Parent) then
         Memo1.Lines.Add(Node.Parent.Text + '|' + Node.Text);
   end;
end;

[Bernard B]

Merci retwas c'est parfait !

Je n'avais pas compris, pour moi, TreVeiw1.items ne contenait que les noeuds de premier rang et j’essayais avec les getfirst et getnext mais je n'arrivais pas à boucler correctement.

[Charly910]

Bonjour,
tu peux aussi utiliser la propriété Level, ce qui te permettrait de tester et d'écrire sur plusieurs niveaux.
Avec seulement un niveau :

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
Procedure  TMainForm.ListTreeView;
Var
  i       : Integer ;
  ANode   : TTreeNode ;
  NodeStr : string ;
Begin
  Memo1.Clear ;
  NodeStr := '';
  If TreeView3.Items.Count > 0 then
     Begin
       ANode := TreeView3.Items[0] ;
       While ANode <> nil do
          Begin
            If ( ANode.Level = 0) Then
               NodeStr :=  ANode.Text
            Else
               Memo1.Lines.Add(NodeStr+'|'+ANode.Text) ;
            ANode := ANode.GetNext ;
          End;
     End;
End;

A+
Charly

[Bernard B]

Si je résume : treeview1.items() permet d'accéder à tous les nœuds quelque soit leur niveau, Node.level permet de savoir à quel niveau est ce noeud.

Merci à vous deux je commence à y voir un peu plus clair