如何删除ListBox中的某一段字符串?

Question

procedure TForm1.Button2Click(Sender: TObject);
var
   i:integer;
begin 
   i:=ListBox1.ItemIndex;
   ListBox1.Items.Delete(i);
   ListBox1.Items.Delete(i+1);   //需要判断是否超过范围
   ListBox1.Items.Delete(i+2);
end;

Answer 1

难道是这样删除:'aaabbb'---->'aaa'?

Answer 2

前三个
for i:=1 to 3 do
  ListBox1.Items.Delete(0);
后三个
for i:=1 to 3 do
  ListBox1.Items.Delete(ListBox1.Items.Count-1);
自N起三个
for i:=1 to 3 do
  ListBox1.Items.Delete(N-1);

Answer 3

删除所选的
先ListBox1.MultiSelect:=true;
然后
for i:=(ListBox1.items.count-1) downto 0 do
    if ListBox1.Selected(i) then
       ListBox1.items.delete(i); 

Answer 4

可以啊,用两个LISTBOX,选好的加到LIES2中,
或是用另一种LIST控件,他的每列有CHECKED的属性,叫什么我网了.