URGENCIA ABSOLUTA, CHECKLISTBOX!

Question

Como eu fa�o para que em um checklistbox tenha os seu itens, exemplo:
[x] Escrit�rio
[ ] Opera��es

e verificar ap�s o usu�rio marcar ou n�o os itens, eu inserir no campo memo da tabela os itens que estavam marcados.
No caso acima inseriria no campo a palavra �Escrit�rio�

Marco C.d. · Answer

Caro Amigo,

A procedure abaixo faz o que voc� deseja. Para que ela funcione, crie um form (no caso chamado de Form1), coloque um BitBtn, um Memo e um CheckListbox... :

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i : integer;
begin
  Memo1.lines.clear;
  for i := 0 to CheckListBox1.Items.Count - 1 do
  begin
    if CheckListBox1.Checked[i] then
       memo1.Lines.Add(CheckListBox1.Items.Strings[i])
  end;     
end;