ListBox: Remover nomes repetidos

Question

Preciso retirar nomes repetidos de um listbox por exemplo:MariaCarlosMariaJo�oMariaMariaCarlosremovendo ficaria:MariaCarlosJo�o...

Delphitotal · Answer

up ...   :(...

Massuda · Answer

O jeito mais simples � evitar que o listbox contenha valores duplicados. Voc� pode testar isso quando estiver preenchendo/populando o listbox...

...
// S � a string a ser inserida no listbox LB
if LB.Items.IndexOf(S) < 0 then begin
  LB.Items.Add(S);
end;
...

Marco Salles · Answer

pode ser que tenha algum m�todo da vcl , eu n�o me recordo agora..

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
listanome:TStringList;
begin
i:=0;
listanome:=TStringList.Create;
for i:=1 to listBox1.Count-1 do
  begin
    if listanome.IndexOf(listbox1.Items.Strings[i]) < 0 Then
      listanome.Add(listbox1.Items.Strings[i])
   end;
listbox1.Clear;
listbox1.Items.AddStrings(listanome);
listanome.Free;
end;

Delphitotal · Answer

Marco Salles,cara eu fiz o teste e o seu c�digo funcionou ... mais tem uma coisa..eu mandei ele tirar os repetidos com o seu c�digo ele tirou direitinho .. mais depois quando mandei tirar os repetidos novamente na lista ele foi excluindo os que n�o estavam repetidos..teria como arrumar isso???...

Delphitotal · Answer

Massuda, Marco Salles agrade�o pela ajuda ...

Consegui de outra maneira:

procedure TForm1.RemoverRepetidos;
var
 i, listIndex : integer;
 str : string;
begin

for i:=ListBox1.Items.Count - 1 downto 0 do
begin
str := ListBox1.Items.Strings[i];
listIndex := ListBox1.Items.IndexOf(str);

if (listIndex <> -1) AND (listIndex <> i) then
begin
ListBox1.Items.Delete(listIndex);

end;
 end;
  end;

Para remover todos os repetidos da lista fa�a o seguinte:

procedure TForm1.Button1Click(Sender: TObject);
begin
 RemoverRepetidos;
end;

Marco Salles · Answer

[quote:94fb21aae3]Marco Salles, cara eu fiz o teste e o seu c�digo funcionou ... mais tem uma coisa.. eu mandei ele tirar os repetidos com o seu c�digo ele tirou direitinho .. mais depois quando mandei tirar os repetidos novamente na lista ele foi excluindo os que n�o estavam repetidos.. teria como arrumar isso???[/quote:94fb21aae3]erro de digita��o trocar [code:1:94fb21aae3]for i:=1 to listBox1.Count-1 do  porfor i:=0 to listBox1.Count-1 do[/code:1:94fb21aae3][quote:94fb21aae3]procedure TForm1.Button1Click(Sender: TObject);vari:integer;listanome:TStringList;begini:=0;listanome:=TStringList.Create;[b:94fb21aae3]for i:=0 to listBox1.Count-1 do[/b:94fb21aae3]  begin//***corrigido    if listanome.IndexOf(listbox1.Items.Strings) < 0 Then      listanome.Add(listbox1.Items.Strings)   end;listbox1.Clear;listbox1.Items.AddStrings(listanome);listanome.Free;end;[/quote:94fb21aae3]mas de qualquer forma voce arranjou uma saida .. legal...

Delphitotal · Answer

Marco Salles, realmente n�o tinha notado o erro de digita��o ...�timo agora consegui varios exemplos incluindo o seu ..vlw por tudo ..agrade�o pela ajuda ....

F�rum ListBox: Remover nomes repetidos #324488