problema con listbox

[[nlsgarcia]]

ale4132,

Empezado por nlsgarcia

El código anterior elimina los Items Duplicados en un control TListBox por medio de comparaciones sucesivas.

Corrección: El código del primer método propuesto falla si un item se repite más de una vez, lo correcto sería:

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
   i,j : Integer;

begin

   for i := 0 to ListBox1.Count-1 do
      for j := ListBox1.Count-1 downto i+1 do
         if (ListBox1.Items.Strings[i] = ListBox1.Items.Strings[j]) then
            ListBox1.Items.Delete(j);

end;

Espero sea útil

Nelson.