请各位看看这方法！！！

Question

请问这段方法为什么会错？有办法只用listbox1.Items.Delete(i);而不用listbox1.Clear;吗？？？
procedure TForm1.Button2Click(Sender: TObject);
var
 i:integer;
begin
 for i:=0 to listbox1.items.count-1 do
  begin
   listbox2.Items.Add(listbox1.Items[i]); //当listbox1加一时 ；
   listbox1.Items.Delete(i);             //  listbox2减一；
  end;
end;

Answer 1

for i:=listbox1.items.count-1  downto 0 do
  begin
   listbox2.Items.Add(listbox1.Items[i]); //当listbox1加一时 ；
   listbox1.Items.Delete(i);             //  listbox2减一；
  end;
你没觉得你原来的item.count随着listbox1.Items.Delete(i);的执行而变化了吗？