如何将listbox中选中的项删除？

Question

listbox.Items.Delete(listbox.itemindex);

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 for i:= ListBox1.Items.Count-1 downto 0 do
 begin
   if ListBox1.Selected[i] then
     ListBox1.Items.Delete(i);
 end;
end;

Answer 2

以上所列代码可以删除所有选中的项（MultiSelect为True时）。

Answer 3

以下代码删除列表中指定的字符串：
with listbox1.items do
begin
if indexof('bureaucracy')>-1 then
delete(indexof('bureaucracy'));
end;