如何删除ListView控件里选中的项目？

Question

如何删除ListView控件里选中的项目？
已困惑多日！郁闷不已！

Answer 1

单选还是多选状态？
单选：myListView.Selected.Delete;

Answer 2

单选:
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ListView1.Selected = NIL then Exit;
  ListView1.Selected.Delete;
end;多选:
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  if ListView1.Selected = NIL then Exit;
  for i := 0 to ListView1.Items.count - 1 do
  begin
    if ListView1.Items.Item[i].Selected then
      ListView1.Items.Item[i].Delete;
  end;
end;