本文整理自网络,侵删。
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]
相关阅读 >>
winapi 字符及字符串函数(4): charupperbuff - 把缓冲区中指定数目的字符转大写
Delphi xe6开发的android应用实现在线升级完成后自动安装apk代码(加说明)
用Delphi通过setupapi.dll列举和停用硬件设备
更多相关阅读请进入《Delphi》频道 >>