var
first,secord:tlistitem;
begin
first:=listview1.GetNextItem(listview1.TopItem,sdall,[isSelected]);//取得第一个select
secord:=listview1.GetNextItem(first,sdall,[isSelected]);//取得第二个select
end;
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := ListView1.Items.Count - 1 downto 0 do
if ListView1.Items[I].Selected then begin
ShowMessage(ListView1.Items[I].Caption);
ListView1.Items[I].Delete;
end;
end;