listbox con item repetidos

[[Héctor Randolph]]

Sugerencia, usa una lista temporal con la propiedad Duplicates=dupignore para evitar insertar elementos duplicados y después copias los elementos al listbox.

Algo como esto :

Código Delphi [-]


procedure TForm1.Button1Click(Sender: TObject);
var
 Temporal: TStringList;
begin

 Temporal:=TStringList.Create;


 Temporal.Sorted:=True;//La lista debe ser ordenada
 Temporal.Duplicates:=dupIgnore; // Igonorar los elementos repetidos

 Temporal.LoadFromFile('Lista.txt');

 //Copiar desde Temporal hacia ListBox
 ListBox1.Items.AddStrings(Temporal);

 Temporal.Free;


end;

Saludos