ale4132,
Cita:
|
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.