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

[nemesio]

Originalmente escrito por Lepe
Entonces ¿la cláusula SELECT DISTINCT para qué se usa?

Claro que también sirve. La idea es dar una solución a la vez y que cada miembro del foro aporte con algo.

[DM2005]

Gracias a todos, la procedure que Hector envio para mi, funciono correctamente como yo necesitaba....desde ya muchas gracias a todos.