超级菜的问题！一个关于TCheckListBox控件的问题！！！！！在线等待！

Question

各位高手请问一下怎样获得TCheckListBox控件中Check项为选中的项！的Caption!也就是说在一个TCheckListBox控件里面显示了N项，其中有一些的CHECK为TRUE 我要怎么才能得到这此CHECK为TRUE项的TEXT呀！

Answer 1

用check为true的Index;s := XXX.Items.Strings[Index];

Answer 2

再加一点就是在数据库中有一项其值只为1和0当为1时TCheckListBox控件中的CHECK显示为带勾，反之则不带勾！请高手解答！

Answer 3

来看看下面的帖子，看了也许会浪费你半分钟时间，但不看相信如果和你有关，你一定后悔 
http://expert.csdn.net/Expert/topic/1546/1546651.xml?temp=.5070154

Answer 4

自己判断，用Text来查找到Index,
为1则[Index] := True;

Answer 5

if 字段=1 then checklistbox.check:=true else checklistbox.check:=false;来看看下面的帖子，看了也许会浪费你半分钟时间，但不看相信如果和你有关，你一定后悔 
http://expert.csdn.net/Expert/topic/1546/1546651.xml?temp=.5070154

Answer 6

var
   i:Integer;for i:=0 to CheckListBox1.Items.Count do begin
   if(CheckListBox1.Checked[i]) then
        CheckListBox1.Items.Strings[i]; //这就是你所需要的。
end;

Answer 7

同意  gong_hui2000(gong_hui2000)

Answer 8

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