listbox con item repetidos

[DM2005]

Hola, es posible que al visualizar un listbox1, que contiene varios items repetidos, solamente que aparezcan una sola vez.

ej. items

1 - Introducción
1 - Introducción
1 - Introducción
2 - Comienzo
2 - Comienzo
2 - Comienzo
3 - Final
3 - Final
3 - Final

muchas gracias!

[[kuan-yiu]]

¿Y de dónde obtienes los items? ¿Lo rellenas tú? ¿Es una consulta de una base de datos?

[nemesio]

Hola

Si los llenas desde una consulta, usa la instrucción GROUP BY del SQL, asi te lo agrupará por Item y no lo tendrás repetido.

[[Lepe]]

Empezado por nemesio

Hola

Si los llenas desde una consulta, usa la instrucción GROUP BY del SQL, asi te lo agrupará por Item y no lo tendrás repetido.

Entonces ¿la cláusula SELECT DISTINCT para qué se usa?

[[seoane]]

Si no encuentras una solucion mejor puedes eliminar los elementos repetidos:

Código Delphi [-]
var
  i: integer;
begin
  i:= 0;
  with Listbox1.Items do
    while Count > i do
    begin
      if IndexOf(strings[i])<>i then
        Delete(i)
      else
        inc(i);
    end;
end;

[DM2005]

Hola, los items los obtengo de la carga de un .txt

Código Delphi [-]
ListBox1.Items.LoadFromFile('C:\teste\IPCapitulo.txt');

pero mi idea no es eliminarlos, sino que cuando los visualize no me muestre los repetidos, espero ayude esta explicacion,
gracias,
Saludos

[[seoane]]

Empezado por DM2005

... pero mi idea no es eliminarlos, sino que cuando los visualice no me muestre los repetidos ...

No entiendo que es lo que quieres hacer, si no los vas a mostrar para que los necesitas cargados dentro de items. Si los necesitas mas tarde siempre los puedes volver a cargar del txt en un TStringlist, por ejemplo.

La única forma de controlar lo items que se ven y los que no es dibujarlos tu mismo, pero eso es matar moscas a cañonazos. Explica un poco mas lo que quieres hacer y a lo mejor encontramos una solución mejor.

[[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.