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

[ln521]

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

[Jujus]

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

[jinjazz]

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

[aggie]

就是上面那玩意！