Búsqueda en listbox

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

Empezado por cHackAll

Esa idea esta super, lastimosamente debes llamar a un procedimiento de ordenamiento, un QuickSort pues la VCL no ordena por Objects , pero con eso ya estaríamos... la busqueda se vuelve más eficiente.

Creo que no me expliqué bien. Se trata de usar el ID para ordenar en la segunda lista (ID como String) y usar así búsqueda dicotómica/binaria sobre la segunda lista (auxiliar) y cada ID de la segunda lista apunta a la posición correspondiente de la primera "Buscar_ datos_ con_ listas_ ordenadas.zip"

He usado 25000 líneas para maximizar los resultados y he realizado las búsquedas utilizando las dos formas; La inicial (secuencial) y usando dos listas para obtener búsqueda dicotómica.

Sorpredentemente al buscar un único elemento, casi no se aprecia, lo que significa que la secuencial se hace más rápido de lo que yo pensaba; Ahora, si el proceso se maximiza (por ejemplo haciendo 1000 búsquedas seguidas) la diferencia es apreciable (más que apreciable).

Revisad el código si queréis, veréis que la diferencia para usar la lista auxiliar son unas pocas líneas.

La diferencia está en usar:

Código Delphi [-]
    if (j > 0) then begin
      ListBox1.Items.Add(ADOTable1.FieldByName('Nombre').AsString + ' - '  +
                         ADOTable1.FieldByName('Direccion').AsString + ' - ' +
                         IntToStr(j));
      ListBox1.Items.Objects[i] := pointer(j);
    end;

o esto:

Código Delphi [-]
if (j > 0) then begin
      Index := ListBox1.Items.Add(ADOTable1.FieldByName('Nombre').AsString + ' - '  +
                         ADOTable1.FieldByName('Direccion').AsString + ' - ' +
                         IntToStr(j));
      ListBox1.Items.Objects[i] := pointer(j);

      // Añadimos a la segunda lista
      Index2 := _ListID.Add(IntToStr(j {ID}));
      _ListID.Objects[Index2] := Pointer(Index);
    end;

Link al ejemplo.

[[Lepe]]

Realmente impresionante los tiempos Neftali.

Dejo una pregunta: ¿no estaremos reinventando la rueda?

Aunque no he estudiado a fondo la implementación de un índice de Bases de datos, se supone que es muy parecido, entonces, ¿por qué implementar nosotros ese índice?(Básicamente es lo que hace Neftali) ya que tenemos la Base de Datos, que lo haga ella .

Si tenemos el ID, y ese campo es clave primaria de la tabla, hacer una consulta del tipo: "select NombreCliente from clientes where id = 32" debe ser inmediata. Si la consulta incluye parámetros y está preparada de antemano, más aún.

Si hablamos de bases de datos en red, peor aún, ya que otro usuario (o el mismo usuario desde otra ventana) puede insertar/borrar/modificar un cliente y tenemos que recargar esos datos del servidor, o tendremos que implementar un servicio de sincronización... o sea, que nos vamos metiendo en camisas de once varas. Quizás este punto no lo haya tenido en cuenta david_uh, no sé, ya nos contará.

Creo que lo dejo claro, tirar siempre de la base de datos y que me resuelva el problema.

Saludos

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

Empezado por Lepe

¿no estaremos reinventando la rueda?

Bueno, yo me he basado en la premisa de un ListBox.

Supongo que si empezaramos de cero y los datos los tuvieramos en la Base de Datos, pues tal vez esa sería la mejor solución (y digo tal vez, porque no conocemos más detalles del problema en concreto).

También estaría la posibilidad de un TClientDataSet, dependiendo del tráfico de red generado y de las consultas que se fueran a relalizar.

Si se necesitan velocidad y muchas consultas de este tipo, esto puede ser una solición también óptima, ya que no necesita tráfico de red (sólo la carga inicial) y la velocidad en local es inigualable (por muchos íncides y preparadas que tengamos las consultas).

Lo de siempre, no creo que exista una mejor solución para todos los casos, depende, depende, depende,...

[roman]

De verdad que no entiendo porqué no usar un clientdataset u otro dataset en memoria y un dbgrid. Por otra parte, algo pasa con el ejemplo, que lo ejecuto y cargo los datos pero éstos nunca aparecen ni la busqueda presenta nada. ¿Hay algo que no sepa?

// Saludos

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

Empezado por roman

...Por otra parte, algo pasa con el ejemplo, que lo ejecuto y cargo los datos pero éstos nunca aparecen ni la busqueda presenta nada. ¿Hay algo que no sepa?

Teóricamente con el EXE y el DATOS.TXT en el mismo directorio debería funcionar.
¿No será el tema del separador en el DATOS.TXT? Que no te lo está cogiendo bien; Recuerdo cuando hablamos del tema (hace no mucho en otro hilo), que si estaban configurados distintos había problemas. No todas formas no lo tengo claro, porque en la cadena de conexión ya va incluído el ;

[roman]

En efecto, es cosa del separador. No recuerdo qué resolvimos en el otro tema pero al parecer no toma en cuenta lo especificado en la cadena. Lo que hice fue cambiar los ; por las , en el archivo original y ya jaló. Tardé un poco porque son muchos datos

// Saludos

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

Empezado por roman

Lo que hice fue cambiar los ; por las , en el archivo original y ya jaló. Tardé un poco porque son muchos datos

¡¡¡Habermelo dicho!!!!
Yo huiera empezado por una punta, tú por la otra y los 25.000 en un rato...

[david_uh]

execelente demostracion neftali gracias

[david_uh]

saben me entro una paranoia con lo que dijo roman acerca de que otro user podria borrar un cliente y como la lista es estática pues desencadenaria un error catastrófico que les parece si mejor pongo el form a su dispocición para cualquier aporte sugerencia o si tengo que rehacerlo no hay problema estaré muy agradecido por sus aportes
pd:- la base de datos es el directorio Rimacy que lo copiamos al directorio Data de mysql, estan en la version 5 y son de tipo inodb.
el fuente esta escrito en delphi 6