bonjour !

Voilà j'aimerais supprimer plusieurs élémenents dans un treeview ...

Quelqu'un aurait il une idée ?

Voici à partir de quoi je suis parti:

procedure TForm2.suppClick(Sender: TObject);
var
a:integer;
begin
For a := 0 to Treeview1.Items.Count-1 do
begin
if Treeview1.Items[a].Selected then
Treeview1.Items[a].Delete;
end;
end;

Le probleme c'est que "Treeview1.Items.Count" n'est plus bon et cela genere des erreurs...

Merci