Discussion :

[ALYSSON]

Bonjour à tous,

Voici mon problème:

dans un treeview j'ai par exemple:

NIVEAU_0
...NIVEAU_01
..........NIVEAU_02 etc..
...NIVEAU_01
..........NIVEAU_02 etc..

comment récupérer dans un memo , à l'aide d'une boucle la valeur numérique du niveau de chaque entrée.
exemple:

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
procedure TForm1.SpeedButton1Click(Sender: TObject);
var i:integer;
 begin
 Memo1.Clear;
 treeview1.FullExpand;
 with treeview1 do
    for i := 0 to items.count-1 do
    begin
      memo1.Lines.Add('#');
      case treeview1.selected.level of
      0: memo1.Lines.Add('Level=0');
      1: memo1.Lines.Add('Level=1');
      2: memo1.Lines.Add('Level=2');
      3: memo1.Lines.Add('Level=3');
    end;
    memo1.Lines.Add('Text=' + items[i].Text);
    end;
end;

Avec cet exemple je récupère bien item[i].text mais tous les levels sont égaux à 0.

MERCI POUR VOTRE AIDE.

[Cl@udius]

Salut

Ton erreur est dans l'utilisation de Selected.

Essaye ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  I: Integer;
begin
  Memo1.Clear;
  TreeView1.FullExpand;
  with TreeView1 do
    for I := 0 to Items.Count - 1 do
    begin
      Memo1.Lines.Add('#');
      Memo1.Lines.Add('Level=' + IntToStr(Items[I].Level));
      Memo1.Lines.Add('Text=' + Items[I].Text);
    end;
end;

@+ Claudius