问题！如何把ListBox中选中的项目删除掉？！！！！！

Question

i:=0;
while i<listbox.items.count do
  if listbox.selected[i] then listbox.delete(i)
    else inc(i);

Answer 1

好像Listbox没有Delete[Index]这个方法啊？
如何是好？

Answer 2

for i:=0 to listbox1.count-1 do
 listbox1.selected{i]:=false;

Answer 3

逆向思考:
for i:=listbox.item.count-1 to 0 do
  if listbox.selected[i].selected then listbox.delete(i);

Answer 4

for i:=0 to listbox1.items.count-1 do
  if listbox1.selected[i] then
  begin
    listbox1.Items.delete(i);
    break;
  end;

Answer 5

var
  i: Integer;
begin
  for i := 0 to (ListBox1.Items.Count - 1) do begin
    if ListBox1.Selected[i] then 
 ListBox1.items.delete(i); 
end ;
end ;

Answer 6

我的错啦。disney(编程乐园)　的 listbox1.delete(i) 改为listbox1.items.delete(i)即可。

Answer 7

这样也可以。
  
for i:=listbox1.Items.Count-1  downto 0 do
     if listbox1.Selected[i] then
        listbox1.Items.Delete(i);

Answer 8

listbox1.items.delete(listbox1.ItemIndex);

Answer 9

ListBox1.items.strings[1];// 选中第一条中的内容；
ListBox1.items.itemindex;
ListBox1.items.Add('str'); // 添加一条；
ListBox1.items.count ; //ListBox 中的记录条数，从0 开始数；
在ListBox中删除被鼠标选中的记录：
listBox1.Items.Delete(ListBox1.itemindex);

Answer 10

将鼠标选中的记录移动到第一条的位置：
ListBox1.Items.Move(ListBox1.ItemIndex,0);
ListBox1.Clear; // 清空所有记录

Answer 11

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  i:=0;
  while listbox1.SelCount>0 do
  begin
    if listbox1.Selected[i] then
      listbox1.items.delete(i);
    else
      inc(i);
  end;
end;

Answer 12

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  i:=0;
  while listbox1.SelCount>0 do
  begin
    if listbox1.Selected[i] then
      listbox1.items.delete(i)//上面多了个 ;
    else
      inc(i);
  end;
end; 

Answer 13

procedure TForm1.Button2Click(Sender: TObject);
var
    i:integer;
begin
    i:=0;
    while(i<=ListBox1.Items.Count-1)do
    begin
        if(ListBox1.Selected[i])then
        begin
            ListBox1.Items.Delete(i);
        end
        else
        begin
            i:=i+1;
        end;
    end;
end;

Answer 14

用listbox1.items.delete(listbox1.ItemIndex);方法最简便.