大家好：请问如何用CheckListBox1这组件。谢意！

Question

if  CheckListBox1.Checked[0] then
    showmessage('pk');

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  for i:=0 to CheckListBox1.Items.Count-1 Do
    if CheckListBox1.Checked[0]=ture then
      ShowMessage('True')
    else
      ShowMessage('False');end;

Answer 2

count := CheckListBox1.Items.Count ;
        calNum := 0;        for i := 0 to count - 1 do
            if CheckListBox1.checked[i] then
            begin
               calNum := calNum + 1 ;
               colName[calnum] := checklistbox1.Items.strings[i] ;
              // showmessage('colName='+colName[calnum]);
            end;