Link to home
Start Free TrialLog in
Avatar of karen021897
karen021897

asked on

listview - multivalues - delete all


hello good expert,

alright.......... i know how to set multivalue to true. But i need code to delete all i select in multivalues in listview

regards
Karen
Avatar of ckaneta
ckaneta

Here is some code:

procedure TForm1.SpeedButton2Click(Sender: TObject);
var c,s:integer; iarr:array[1..10]of integer;
 begin
  memo1.lines.clear; s:=0;
  for c:= 1 to lv.Items.Count do
   if lv.Items[c-1].Selected then begin
    memo1.lines.add(lv.items[c-1].Caption);
    s:=s+1; iarr[s]:=c-1;
   end;
  for c:=s downto 1 do lv.Items[iarr[c]].delete;
 end;

it deletes everything that is selected
in the Listview(lv)
you might be able to lose the array and set the first for loop from count downto 1, but i didn't try that
ASKER CERTIFIED SOLUTION
Avatar of chengjian
chengjian

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of karen021897

ASKER

Excelent

Karen