TreeView et Level

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:

---

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.

Salut

Ton erreur est dans l'utilisation de Selected.

Essaye ceci:

Code:

---

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