Remover Itens Duplicados

Delphi

17/04/2004

Estou usando um listbox com diversos links, e um contador de links em um statusbar, o problema está que eu não estou conseguindo remover corretamente os itens que estão duplicados nesta lista, estou erando no loop o tempo todo... me parece simples mas estou errando feio!!!

Eu gostaria que alguem me mostra-se o codigo para a remoção destes itens duplicados no listbox!!!

Obrigado.


Dan

Dan

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

17/04/2004

Colega,

Eu não consegui entender o que você está precisando. Pode postar um fragmento do código pra gente avaliar melhor.


GOSTEI 0
Dan

Dan

17/04/2004

Eu gostaria simplesmente de remover os itens duplicados de meu listbox!!!

Pois o loop que fiz só causa erros...


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

17/04/2004

Colega,

Existem muitas alternativas. Esta é uma delas:

var nI, nX, nP: Integer;
    Lista: TStringList;
begin
Lista := TStringList.Create;
  Lista.Sort;
ListBox1.Sorted:= true;

  nX := ListBox1.Items.Count - 1;

  For nI := 0 to nX do
if not (Lista.Find(ListBox1.Items[nI], nP)) then
    Lista.Add(ListBox1.Items[nI]);
  ListBox1.Items.Assign(Lista);
  Lista.Free;
end;



GOSTEI 0
POSTAR