checklistbox 问题

Question

如何取出checklistbox中被选中的项目？
可以写出来吗？

Answer 1

可以的。
 for I:=0 to checklistbox.Count-1 do
  begin
    if Checklistbox.Checked[I]=True then
        begin
          str:=Checklistbox.Items.Strings[I];
        end;
     end;

Answer 2

  for i:=0 to CheckListBox1.Count-1 do
  begin
    if CheckListBox1.Checked[i] then
    begin
      ShowMessage(IntToStr(i+1)+CheckListBox1.Items[i]);
    end;
  end;