Comment effacer des Items d'un TListView ?

Version imprimable

Je débute sous Delphi et je ne m'en sort pas avec la suppression d'un Item dans une TlistView. Les Items que je veux effacer sont "Checked".
A l'execution, mon code provoque une erreur sur la l'instruction GetNextItem.

Pouvez vous m'aider ?
Merci d'avance !

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
27
 
procedure TFPrincipale.BitBtn1Click(Sender: TObject);
var
i, cpt : integer;
Item_List: TListItem;
begin
  flag_modif_liste := True;
  cpt := 0;
  for i:=0 to ListView1.Items.Count-1 do {On vire 1 car on commence à 0}
    if ListView1.Items[i].Checked then
    begin
      cpt := cpt + 1;
      ListView1.Items[i].Selected := True;
    end;
  if MessageDlg('Voulez-vous éffacer : ' + IntToStr(cpt) + ' fichiers ?',
    mtWarning, [mbOk, mbCancel], 0) = mrOk then
  begin
      Item_List := ListView1.Selected;
      while Item_List <> nil do
      begin
        Item_List.Delete;
        Item_List := ListView1.GetNextItem(Item_List, sdAll, [isSelected]);
//        deletefile(chemin_image_reference+Item_List.Caption); // desactivé pour le moment
      end;
  end;
flag_modif_liste := False;
end;

Salem boyerf,

Il faut mettre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
  if MessageDlg('Voulez-vous éffacer : ' + IntToStr(cpt) + ' fichiers ?',
    mtWarning, [mbOk, mbCancel], 0) = mrOk then
  begin
      Item_List := ListView1.Selected;
      while Item_List <> nil do
      begin
[color=blue]
        Item_List1 := Item_List ;
        Item_List := ListView1.GetNextItem(Item_List, sdAll, [isSelected]);
        Item_List1.Delete;
[/color]
//        deletefile(chemin_image_reference+Item_List.Caption); // desactivé pour le moment
      end;
  end;

10/11/2002, 19h11
boyerf

Ok, probleme résolu

Merci beaucoup !
Ca fontionne trés bien !

(il ne faut pas oublier de déclarer TListItem, c'est tout...)

François
11/11/2002, 09h29
Fares BELHAOUAS

Salem François

Il reste juste une remarque.

Si l'utilisateur selectionne des items sans les cocher , ces derniers seront effacés aussi.

Salut Fares,

C'est exact ! Je n'avais pas pensé à ça...
J'ai donc modifié mon code comme ça :

Code:

1
2
3
4
5
6
7
8
 
    if ListView1.Items[i].Checked then
    begin
      cpt := cpt + 1;
      ListView1.Items[i].Selected := True;
    end
    else
      ListView1.Items[i].Selected := False;