Dados duplucados no CheckListBox

Delphi

29/08/2009

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 assim

Banana||Maçã||Pera
Banana||Maçã||Pera
Banana||Maçã||Pera

O que estou fazendo de errado? É no laco?
Usei o CheckListBox.AddItem (j,nil)


Obrigada!


Jaqque

Jaqque

Curtidas 0

Respostas

Osocram

Osocram

29/08/2009

tenta assim CheckListBox1.Items.Append();


GOSTEI 0
Osocram

Osocram

29/08/2009

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.


GOSTEI 0
Jaqque

Jaqque

29/08/2009

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[i] 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:

Azul
Amarelo
Verde
Branco


GOSTEI 0
Osocram

Osocram

29/08/2009

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;



GOSTEI 0
Jaqque

Jaqque

29/08/2009

Olá osocram!

Obrigada! É isso mesmo que eu precisava...

Valeu mesmo pela ajuda!


GOSTEI 0
POSTAR