no añadir duplicados a listbox

[jonydread]

hola busque por el foro pero sin embargo no logro comprender al 100%
como evitar añadir archivos dos veces

lo que yo hago es cargarlos mediante opendialog

Código Delphi [-]
opendialog1.Execute;
for i:= 0 to Opendialog1.Files.Count-1 do
if fileexists(Opendialog1.Files[i]) and SameText(ExtractFileExt(Opendialog1.Files[i]),'.reg') then
 begin
 Listbox1.Items.Add(opendialog1.files[i]);
 label1.Caption:='Archivo(s) Cargado(s)!';

y he estado intentado con este codigo que no ubico muy bien mi fallo o si el codigo esta incompleto

Código Delphi [-]
procedure TForm.Button1Click(Sender: TObject);
var
 i,j:integer;
 cadena:string;
 encontrado:boolean;
begin
if Opendialog1.execute then
begin
for i:= 0 to Opendialog1.Files.Count-1 do
 cadena:= Opendialog1.Files[i];
 encontrado:=false;
 for j:=0 to listbox1.Items.Count-1 do
 if cadena = listbox1.items[j] then
 encontrado:=true
 else
 Listbox1.Items.Add (Opendialog1.Files[i]);
 end else
 abort;
end;

gracias!!

[ecfisa]

no añadir duplicados a listbox
hola busque por el foro pero sin embargo no logro comprender al 100% como evitar añadir archivos dos veces

Hola.

Código Delphi [-]
...
var
  i: Integer;
begin
  if OpenDialog1.Execute then
    for i:= 0 to Opendialog1.Files.Count-1 do
      if ListBox1.Items.IndexOf(opendialog1.Files[i]) = -1 then
        ListBox1.Items.Add(OpenDialog1.Files[i]);
end;

Saludos.

[Neftali [Germán.Estévez]]

Empezado por jonydread

hola busque por el foro pero sin embargo no logro comprender al 100%
como evitar añadir archivos dos veces

Yo en estos caso utilizo una estructura auxiliar que hace el trabajo (TStringList); Además de codificar menos, esta estructura debe estar ordenada (a veces el componente no debe estarlo), por lo tanto la búsqueda de los elementos se realiza utilizando "búsqueda dicotómica" en lugar de secuencial.

Utilizaría (y suelo utilizar) algo así:

Código Delphi [-]
  TS := TStringList.Create;
  TS.Sorted := True;
  TS.Duplicates := dupIgnore;

  try
    if OpenDialog1.Execute then
      for i:= 0 to Opendialog1.Files.Count-1 do
        TS.Add(opendialog1.Files[i]);

    // Asignar
    ListBox1.Items.AddStrings(TS);
  finally
    FreeAndNil(TS);
  end;

NOTA1: Si estamos hablando de 10 elementos, el rendimiento (no lo he medido) seguro que es desechable. En números elevados la ganancia va siendo exponencial.
NOTA2: Si el ListBox ya está ordenado es posible (no lo aseguro 100% -basta con mirar el código de la VCL-) que ya se utilice esta búsqueda, por lo que tal vez no haría falta.

[jonydread]

Muchas gracias a ambos funciono a la perfeccion, creo que hay que actualizar un poco el trucomania ejjej
saludos!!!