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.