for I=1 to listview1.selcount -1 do
  ....

解决方案 »

  1.   

    for I=0 to listview1.selcount -1 do
        ....
      

  2.   

    for I:=0 to listview1.selcount -1 do
      ....
      

  3.   

    for I:=0 to listview1.selcount -1 do
      ....
      

  4.   


        for I := ListView.Items.Count - 1 downto 0 do
        begin
          if Listview.Items[I].Selected then
          begin       ....
          end;
       end;   
      

  5.   

    C++ Builder的一段代码,供参考:
    void __fastcall TCDForm::BitBtn2Click(TObject *Sender)
    {
    // ListView1->Items->Delete(ListView1->Selected->Index);
    TItemStates selected = TItemStates() << isSelected;
    TListItem *Item2;
    TListItem *Item = ListView1->Selected;
    while (Item){
    Item2 = ListView1->GetNextItem(Item, sdAll, selected);
                    ListView1->Items->Delete(Item->Index);
                    Item = Item2;
    }
    }
      

  6.   

    for i:=0 to listview1.Items.Count-1 do
      begin
        if listview1.Items.Item[i].Selected then listview1.Items.Item[i].Delete;
      end;