没
没救_delphi
Unregistered / Unconfirmed
GUEST, unregistred user!
我想选择listbox1的内容，移到listbox2中，可以多选，可以多次操作，下面是我现在
的代码，但是，只能进行一次，怎么改？
procedure TFrmchracter.SpeedButtonrightClick(Sender: TObject);
var i:integer;
begin
for i:=0 to listbox1.items.count-1 do
if listbox1.selected=true then
listbox2.Items.Add(listbox1.items);
listbox1.items.clear;
end;
的代码，但是，只能进行一次，怎么改？
procedure TFrmchracter.SpeedButtonrightClick(Sender: TObject);
var i:integer;
begin
for i:=0 to listbox1.items.count-1 do
if listbox1.selected=true then
listbox2.Items.Add(listbox1.items);
listbox1.items.clear;
end;