suppression multiple dans un treeview

Version imprimable

09/05/2007, 11h12
tomkiki

suppression multiple dans un treeview

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 ;)

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:

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+.

Salut

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

Code:

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

09/05/2007, 13h30
tomkiki

ben ca marche pas ...

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 ...

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:

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+.

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:

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

09/05/2007, 15h30
tomkiki

ha ben voilà !

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

c'est impecable !

:king: