Identificar quais itens de um checklistbox est�o marcados...

Question

Ol� galera!Como fazer para identificar quais �tens de um checklistBox est�o checados pelo usu�rio?Por exemplo, estou oferecendo 5 produtos para compra em um CheckListBox e preciso gravar em um arquivo...

Mkoch · Answer

Supondo que Lista � um CheckListBox e I � do Tipo Integer.
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to Lista.Items.Count - 1 do
if Lista.Checked[I] then
begin
//Faz o que precisa fazer com os itens checados.
end;//if
end;