关于Listbox的问题？？在线求急！！！

Question

在form窗口中有两个listbox,现在我要将一个listbox1 中被选中的内容通过一个button移入listbox2？？？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
listbox2.Items.Clear;
//listbox1.Items[i]
for i:=0  to listbox1.Items.Count-1  dolistbox2.Items.Add(listbox1.Items[i])
end;

Answer 2

i:integer;
begin
listbox2.Items.Clear;
for i:=0  to listbox1.Items.Count-1  do
if listbox1.Selected[1] then listbox2.Items.Add(listbox1.Items[i])
end;

Answer 3

楼上的代码有点问题：首先是移动“被选中的”而不是所有；其次是“移入”而不是复制。
下面代码仅供参考：
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=ListBox1.Items.Count-1 downto 0 do
    if ListBox1.Selected[i] then
      begin
        ListBox2.Items.Add(ListBox1.Items[i]);
        ListBox1.Items.Delete(i);
      end;
end;
另外，该方法对选中多个项也同样适用。
怎么样，给分吧。