Dados duplucados no CheckListBox

Question

Ol�,Algu�m pode me ajudar?Quero inserir os dados em um CheckListbox, mas eles ficaram duplicados.Por exemplo, selecionei os itens Banana, Ma�� e Pera. No checklistbox aparece assimBanana||Ma��||PeraBa...

Osocram · Answer

tenta assim CheckListBox1.Items.Append();...

Osocram · Answer

Olha testei o aqui com o codigo que vc usar e funciona normal tbm...posta o la�o que vc fez p agente ver. O problema deve estar nele....

Jaqque · Answer

Ol�,Depois de algum tempo consegui fazer o seguinte:procedure TForm1.Button1Click(Sender: TObject);var i, j :Integer ;begin for i := 0  to Pred(ListBox1.Items.Count) do if ListBox1.Selected then   begin     if ListBox1.Items.Text <> CheckListBox1.Items.Text then      begin      CheckListBox1.Items.AddStrings(ListBox1.Items);      end;   end;end;Mas ainda n�o deu certo, porque ao selecionar um, ele adiciona todos.Usei os Itens no ListBox:AzulAmareloVerdeBranco...

Osocram · Answer

agora acho que entendi exatamente o que quer fazer.

este aqui � o seu problema

CheckListBox1.Items.AddStrings(ListBox1.Items);

o que acontece, vc verifica se um item do listbox esta selecionado, se tiver vc esta adicionando a lista inteira do listBox no Checkbox.

o problema esta nesta linha mesmo...
vou postar o codigo que vc passou, ja corrigido

var
  i:Integer ;
begin
  for i := 0 to Pred(ListBox1.Items.Count) do
    if ListBox1.Selected[i] then begin
      if ListBox1.Items.Text <> CheckListBox1.Items.Text then begin
      //CheckListBox1.Items.AddStrings(ListBox1.Items);
      CheckListBox1.Items.Append(ListBox1.Items[i]);
      end;
    end;
  end;

Jaqque · Answer

Ol� osocram!Obrigada! � isso mesmo que eu precisava...Valeu mesmo pela ajuda!...

F�rum Dados duplucados no CheckListBox #374268