关于checklistbox的小问题

Question

把checklistbox中选中的项复制到另外一个checklistbox中的代码该怎样写啊？？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
begin
    for I:=0 to checklistbox1.Count-1 do
      begin
       if checklistbox1.Checked[I] then
            checklistbox2.Items.Add(checklistbox1.Items[I]);
            end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
begin
    for I:=0 to checklistbox1.Count-1 do
      begin
       if checklistbox1.Checked[I] then
            checklistbox2.Items.Add(checklistbox1.Items[I]);
            end;
end;

Answer 3

在另外一个checklistbox2中创建选中的项，同时如果需要的话。释放checklistbox1中的项。creatobject或additem(对象或数据)

Answer 4

那么请问如何把checklistbox中重复的选项删除掉啊？

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
begin
    for  I:=checklistbox1.Count-1 downto 0 do
      begin
       if checklistbox1.Checked[I] then
            checklistbox2.Items.Add(checklistbox1.Items[I]);
            checklistbox1.DeleteSelected;
            end;end;

Answer 6

真的挺谢谢你啊！！不过如果你在checklistbox1中选择了一项，然后比如你button按了2次，那么在checklistbox2中就会有2个选中的那项，如何能去除重复的选项啊？？

Answer 7

通常像这样的搞两个button  ---->              <---------搞我上面的代码，再写另外一个..
//然后比如你button按了2次，那么在checklistbox2中就会有2个选中的那项，如何能去除重复的选项按我上面的代码不可能的，因为按一次触发检查是否checked了，如果没有就不执行，更可能可重复