简单的送分题！！！！！！！！！！！

Question

是关于checklistbox的使用
  我找了老半天也没找出来
 我想显示 checklistbox 的checked为true 的text;
  谁给个提示啊》》》》
  麻烦大峡门了！！

Answer 1

for i := 0 to checklistbox.Items.count - 1 do
begin
  if checklistbox.items[i].checked then
  begin
    //checklistbox.items[i].text;//可能是。
    //你也可以定义一个回掉函数作为函数的参数传递过来在此调用
  end;
end;

Answer 2

var i:integer;
begin
  for i:=0 to checklistbox1.Count-1 do
  if  checklistbox1.Checked[i] then
    showmessage(checklistbox1.Items[i]);
end;