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