Ayuda para hacer un algoritmo de busqueda y comparacion

[JoAnCa]

Hola a todos
Necesito ayuda para elaborar un algoritmo que me permita buscar un elemento de una lista en otra lista.

Es decir

Lista 1 ---- Lista 2
1 ------------ a
2 ------------ b
3 ------------ c

Comparar 1 con cada elemento a, b y c para saber si son iguales
Comparar 2 y 3 de la misma forma

Para explicarme mejor:

Tengo una BD con todos los Discos duros de la PC, y hago un nuevo chequeo de hardware donde obtengo la lista de discos duros existentes en ese momento en la PC
El objetivo es comparar si son los mismos que estan en la BD o si hubo cambios con alguno de ellos (es decir, si cambiaron uno por otro, o quitaron, o agregaron alguno).
El cambio lo detecto por el numero de serie que es unico para cada disco duro

Tal vez el metodo que trato de implementar no sea el correcto, pero agradeceria cualquier ayuda para poder hacer lo que quiero

[Rockin]

pues dependiendo el componente que uses, se me ocurre algo asi:

Código Delphi [-]
for i:= 1 to num_elementos_lista1 do
begin
    
      for j:= 1 to num_elementos_lista2 do
      begin
             
              IF elemento_lista1[i] = elemento_lista2[j] then
              begin
                    //hacemos lo que queramos si son iguales los elementos
              end;

      end;
end;

Es una idea, no se como es la lista, si es una tabla, un Tlist, o lo que sea.

Saludos

[JoAnCa]

Hola Rockin

Vale la idea que me das, las listas una es una tabla y la otra un stringlist, ya habia probado algo parecido pero el problema esta en que cuando comparo, siempre me da diferente.
Pues me compara el Elemento 1 con cada uno de la otra lista, y entonces cuando compara con el 1 da Verdadero y con los siguientes me da falso
Y al final no se como hacer para saber si el disco 1 cambio




Gracias

[[Lepe]]

la tabla, cárgalo en otro stringlist si quieres:

Código Delphi [-]
// lista1 la base de datos
// lista2 el stringlist con los discos duros
for i:= 0 lista1.count-1 do
begin
   if lista2.indexOf(lista1[i]) = -1 then
      showmessage('ups no existe ' + lista1[i] + ' en lista2');
end;

Saludos

[JoAnCa]

Muy bueno tu codigo Lepe, de esa forma es mas facil saber si un elemento de una lista existe en la otra.

Entonces aplicando esa funcion, lo que pretendo hacer es:
- Buscar cada elemento de Lista1 en Lista2
- Lo almaceno en X si no existe
- Buscar cada elemento de Lista2 en Lista1
- Lo almaceno en Y si no existe
- Si X o Y contienen algo, entonces emito el mensaje de que hubo cambios y muestro los valores de X y de Y

Este algoritmo estara correcto asi?
Si tienen otra forma mejor o mas optima, digamenlo tambien para implementarlo, o si con este algoritmo ya estaria bien.

[[Lepe]]

Puedes usar otra lista ¿no?

Código Delphi [-]
// lista1 la base de datos
// lista2 el stringlist con los discos duros
noExiste = TStringlist.Create;
for i:= 0 lista1.count-1 do
begin
   if lista2.indexOf(lista1[i]) = -1 then
      noExiste.Add(Lista1[i])
end;
if noExiste.Count > 0 then
   ShowMessage(' Se han eliminado los siguientes discos ' + #13#10 + noExiste.CommaText);

Cuando te mostrará los discos duros que han sido reemplazados.

Saludos