Discussion :

[tomkiki]

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

[PadawanDuDelphi]

Salut,

Deux règles de base.

1) Une pour le Forum: utilise les balises code stp.

2) Une pour la programmation: Pour la suppression, toujours parcourrir les éléments en commençant par la fin (sinon quand tu supprime un élément tu décale tes indices).

Donc dans ton cas, ce serait un truc du genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm2.suppClick(Sender: TObject);
var
a:integer;
begin
For a := Treeview1.Items.Count-1  downto 0 do
begin
if Treeview1.Items[a].Selected then
Treeview1.Items[a].Delete;
end;
end;

A+.

[Cl@udius]

Salut

Essaye ceci en utilisant while qui va réévaluer Count à chaque boucle:

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.Button1Click(Sender: TObject);
var 
  I: Integer;
begin
  I := 0 
  while I < TreeView1.Items.Count do
  begin
    if  TreeView1.Items[I].Selected then
      TreeView1.Items.Delete(I)
    else 
      Inc(I);   
  end;
end;

@+ Claudius

[tomkiki]

merci mais rien ne fonctionne ...

PadawanDuDelphi : il n'y a qu'un élément supprimé et toujours celui cliqué ...

Cl@udius : (apres correction sinon delphi rale ...) Ben ce code supprime tout les éléments qui suivent ...

[PadawanDuDelphi]

J'ai fait le test avec mon code, ca fonctionne (as-tu mis la propriete multi-select à true?) la plupart du temps.
Avec un toutefois un comportement bizarre par moment: tous les éléments qui s'efface. Le problème survient lorsque tu selectionne uniquement le dernier noeud à effacer (peut-etre une selection par défaut?).

Pourquoi ne pas selectionner les indices à effacer dans ce cas?

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
procedure TForm1.Button4Click(Sender: TObject);
var
a:integer;
Selection: array of integer;
begin

For a := Treeview1.Items.Count-1  downto 0 do
begin
//sauvegarde de la selection par ordre décroissant.
if Treeview1.Items[a].Selected then begin
    Setlength(Selection,length(Selection)+1);
    Selection[length(Selection)-1]:= a;
end;
end;

For a := 0  to length(selection)-1 do
//effacement de la selection.
   TreeView1.Items[Selection[a]].Delete;

end;

J'ai pas fait tous les tests, mais dans la majoriter des cas ca a l'air de passer...

A+.

[Cl@udius]

Re,

Je suis arrivé à peu près à la même solution que Padawan. Mais je me demande si il n'y a pas plus simple

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
22
23
24
25
26
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  aSelIndexes: array of integer;
begin
  with TreeView1 do
  begin
    Items.BeginUpdate;
    try
      for i := 0 to Items.Count - 1 do
      begin
        if Items[i].Selected then
        begin
          SetLength(aSelIndexes, High(aSelIndexes) + 2);
          aSelIndexes[High(aSelIndexes)] := i;
        end;
      end;
      for i := High(aSelIndexes) downto 0 do
        Items[aSelIndexes[i]].Delete;
    finally
      Items.EndUpdate;
      Setlength(aSelIndexes, 0);
    end;
  end;
end;

@+ Claudius

[tomkiki]

merci PadawanDuDelphi !
ce code fonction bien ... sélèction simple, en série et aléatoire

c'est impecable !