用checklistbox如何一次删除所选中的全部项

Question

用checklistbox如何一次删除所选中的全部项

Answer 1

for I := 0 to XXX.Count - 1 do
  //your code

Answer 2

for i := XXX.Count - 1 downto 0 do
  //your code

Answer 3

for i:=0 to fctreeview3.Items.Count - 2 do
           begin
             if fctreeview3.Items[i].Checked then
               ls_cri:=ls_cri+fctreeview3.Items[i].StringData+',';
           end;

Answer 4

我说的是删除呀!
for i:=0 to t.Count-1  do
begin showmessage(t[i]);
 checklistbox2.DeleteSelected ;
end;
只删除一个呀

Answer 5

for i:=0 to Chklist.items.count-1 do
 if Chklist.Value(i) then
   ...