读取TChecklistBox选中项目的最短代码

Question

将所有已检查项目从TChecklistBox复制到TStringlist的最短代码是什么？

（对于TListbox，我可以使用assign函数来添加和提取带有数据的TStringlist）

Answer 1

使用普通的vanilla Delphi（即没有任何第三方库），你只需编写一个for循环：

StringList.Clear;
for i := 0 to CheckListBox.Items.Count-1 do
  if CheckListBox.Checked[i] then
    StringList.Add(CheckListBox.Items[i]);