Fórum CheckListBox #158684

Crie uma nova aplicação e acrescente um CheckListBox, um Button, e 3 labels. Coloque alguns itens no CheckList e no evento onClick do botão coloque o código :

procedure TForm1.Button1Click(Sender: TObject);
var
i, conta : integer;
texto : string;
begin
conta := 0;
texto := ´´;

Label1.Caption := IntToStr(CheckListBox1.Count)+´ itens´;

for i := 0 to CheckListBox1.Count-1 do
if CheckListBox1.Checked[i] then
inc(conta);
Label2.Caption := IntToStr(conta)+´ itens selecionados´;

for i := 0 to CheckListBox1.Count-1 do
if CheckListBox1.Checked[i] then
texto := texto + CheckListBox1.Items[i] + ´ ´;
Label3.Caption := texto + ´ são os itens selecionados´;
end;

Depois, se quiser, pode simplificar seu código e usar o for i: ... uma vez só. Do jeito que está é só para facilitar o entendimento.

Boa sorte !