for i := CheckListBox1.Items.Count-1 downto 0 do //从后面往前面删 begin if CheckListBox1.Checked[i] then // 是否选中 begin CheckListBox1.Items.Delete(i); end; end; 获取选中的名称: clbCol.Items[clbCol.ItemIndex]
Delphi CheckListBox 用法
原文：https://www.cnblogs.com/windson/p/12569126.html
