Búsqueda en listbox

[david_uh]

hola a todos
tengo el siguiente problema:
tengo un listbox cargado con 10000 nombres de clientes y por cada entrada en la lista le he relacionado un ID de tipo integer este valor lo he almacenado de esta forma
while not ZListas.Eof do //
begin
lis_clientes.Items.Add(ZListas.FieldByName('cliente').AsString + ^I +
ZListas.FieldByName('Direccion').AsString);
lis_clientes.Items.Objects[i] := pointer(ZListas.FieldByName('Id').AsInteger);
inc(i);
ZListas.Next;
end;

pero ahora necesito recuperar enun Edit el nombre de un cliente y para ello cuento solo con su ID, es obvio que tendria que buscar el id dentro de la matriz objects[] de la lista pero me gustaria saber si existe otra forma ya que una búsquda sobre 10000 registros o más podría no ser eficiente

Gracias de antemano por cualquier alcance

[cHackAll]

...una búsquda sobre 10000 registros o más podría no ser eficiente...

bueno no estoy muy de acuerdo con esa forma de pensar pues de todas formas los programas deben realizar dicha busqueda internamente para encontrar los datos que el usuario requiere... imaginate al hacer una consulta SQL lo que debe hacer para hacer un simple select * from Empleados where Cargo like 'Gerente*'... en defintiva hay metodos de optimizacion que utilizaron los creadores del motor pero en todo caso en algun momento debe hacer un "barrido" de cada uno de los registros de tal tabla.

Pero bueno, si lo que buscas es acortar la cantidad de lineas utilizadas en tu código fuente os dejo la siguiente:


Posicion := lis_clientes.Items.IndexOfObject(Pointer(12));


Buscamos el puntero $12 y su posicion la guardamos en una variable, siendo un -1 = "not found".

Saludos

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

En este caso y para modificar el mínimo código posible, yo optaría por una segunda lista (TStringList) "ordenada" por ID que te permita hacer la búsqueda. En la segunda lista guardaría el ID y en el Objects puedes guardar el indice de la primera lista donde se encuentra ese elemento.

[Delfino]

Si son solo dos datos ID + Nombre, mas eficiente seria almacenar en la lista valores en formato Name=Value, asi seria ID=Nombre,
para obtener el ID utilizar la propiedad Names[i] de la StringList y para obtener el nombre la propiedad Values[ID]..

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

Si son solo dos datos ID + Nombre, mas eficiente seria almacenar en la lista valores en formato Name=Value, asi seria ID=Nombre,
para obtener el ID utilizar la propiedad Names[i] de la StringList y para obtener el nombre la propiedad Values[ID]..

Es una forma correcta, pero el problema es que ya no funciona la búsqueda dicotómica. El acceso utilizando Value[ID] es secuencial (que es lo que no quiere hacer).

[david_uh]

Código SQL [-] (http://www.clubdelphi.com/foros/#)select * from Empleados where Cargo like 'Gerente*'

... en defintiva hay metodos de optimizacion que utilizaron los creadores del motor pero en todo caso en algun momento debe hacer un "barrido" de cada uno de los registros de tal tabla.

Pero bueno, si lo que buscas es acortar la cantidad de lineas utilizadas en tu código fuente os dejo la siguiente:


Código Delphi [-] (http://www.clubdelphi.com/foros/#)
Posicion := lis_clientes.Items.IndexOfObject(Pointer(12));





Buscamos el puntero $12 y su posicion la guardamos en una variable, siendo un -1 = "not found".

Saludos

bueno el hecho es que para optimizar la velocidad de ingreso de datos he hecho lo siguiente:
primero una consulta

Select id,cliente from tblClientes order by Cliente

así ordenado por cliente este va a para a la lista, el usuario en un edit escribe y el la lista se van seleccionando las coincidencias parecida a la ayuda de windows 95 y para ello necesito la lista ordenada, no la ordeno son el metodo Sort de la lista ya que tarda demasiado, pero el caso es que las ID no estan ordenadas y una búsqueda binaria no es viable, ahora mi pregunta es el método:

Posicion := lis_clientes.Items.IndexOfObject(Pointer(12));

no entiendo bien el Pointer(12) a que se refiere? que es el 12? el ID del cliente???, la búsqueda así es secuencial?
gracias por cualquier respuesta

[cHackAll]

...pero ahora necesito recuperar enun Edit el nombre de un cliente y para ello cuento solo con su ID, es obvio que tendria que buscar el id dentro de la matriz objects[] de la lista pero me gustaria saber si existe otra forma ya que una búsquda sobre 10000 registros o más podría no ser eficiente...

Lamento no haber sido del todo claro al responder la interrogante... solo contando con el ID en mi ejemplo el ID es 12, pero supongo que el ID lo obtienes de una variable o objeto en la GUI que lastimosamente desconozco... pero es la misma lógica utilizada;

...yo optaría por una segunda lista (TStringList) "ordenada" por ID que te permita hacer la búsqued...

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.

En todo caso respondo la pregunta:


Posicion := lis_clientes.Items.IndexOfObject(Pointer(StrToInt(txtID.Text)));


Creo que la cosa ahora se entiende más.

[david_uh]

ok gracias por el alcance.. a proposito el id se encuentra en el tag del edit donde el user escribe

[cHackAll]

...la búsqueda así es secuencial?...


function TStrings.IndexOfObject(AObject: TObject): Integer;
begin
for Result := 0 to GetCount - 1 do
if GetObject(Result) = AObject then Exit;
Result := -1;
end;


Eso fue copiado de la misma VCL del Delphi, creo responde a la pregunta.

A lo otro un poco mas concreto:
Simplemente pones la linea que deje, y obtienes la posicion, con la posicion obtendras el nombre... por ejemplo

...
Posicion := lis_clientes.Items.IndexOfObject(Pointer(txtID.Tag));
if Posicion <> -1 then
txtNombre.Text = lis_clientes.Items[Posicion];
...

Creo que ahorras algo de código, suerte!

[roman]

Y bueno, ¿qué no sería mejor usar un dbgrid con índices bien puestos en la tabla y consultas sql apropiadas?

// Saludos

[david_uh]

Y bueno, ¿qué no sería mejor usar un dbgrid con índices bien puestos en la tabla y consultas sql apropiadas?

// Saludos
pense en hacer eso, es decir usando la propiedad filter. además como el ingreso de datos es intenso a medida que crece la tabla es más lento aún, poor ello utilizo la busqueda en la lista

[cHackAll]

...no sería mejor usar un dbgrid con índices bien puestos en la tabla y consultas sql apropiadas?...

Dijo alguien una vez "eso es harina de otro costal"... pues yo, si es que considero que la mejor forma de hacer algo sea por una mejor apariencia en la GUI u otra causa pues lo hago de una forma poco común. Creo que saber qué es lo mejor en este puno, está en funcion al por qué lo hizo el iniciador del hilo de esa forma.

Saludos!

[roman]

pense en hacer eso, es decir usando la propiedad filter. además como el ingreso de datos es intenso a medida que crece la tabla es más lento aún, poor ello utilizo la busqueda en la lista

Claro que va a ser lento. Pero eso es porque no estás uando adecuadamente las herramientas. No lo tomes a mal, es sólo que un ListBox no es el componente adecuado para atacar bases de datos, y si lo usas, al menos deberías hacerlo en modo virtual. Usar filtros tampoco es adecuado. El punto aquí es: no necesitas tener 10,000 registros al mismo tiempo en tu aplicación. Haz una ventana de inserción/modificación de datos que trabaje con un registro a la vez. Y haz una ventana de búsqueda que permita al usuario escoger criterios de filtrado. Esto no lo traduces en la propiedad Filter del dataset, sino en una cláusula WHERE de una consulta SQL. La consulta, ya con los criterios, la ejecutas para traer a tu aplicacíon, sólo los registros necesarios.

// Saludos

[roman]

Dijo alguien una vez "eso es harina de otro costal"... pues yo, si es que considero que la mejor forma de hacer algo sea por una mejor apariencia en la GUI u otra causa pues lo hago de una forma poco común. Creo que saber qué es lo mejor en este puno, está en funcion al por qué lo hizo el iniciador del hilo de esa forma.

Saludos!

Amigo cHackAll, estoy de acuerdo en que es harina de otro costal. Estrictamente hablando, se preguntó acerca de un listbox, y usar un dbgrid es otro cantar. Pero considero que a veces podemos ayudar más orientando acerca de otras opciones que quien pregunta quizá no conozca. Claro que puedo equivocarme, pero en este caso, me da la impresión de que nuestro amigo no tiene clara la manera de trabajar este tipo de cosas y por ello intenta usar un recurso inadecuado.

// Saludos

[david_uh]

bien solo necesitaba que la lista vaya mostrando las coincidencias mientras el usuario escribe, un dbgrid no seria eficiente para ello me parece al tratarse de muchos registros
gracias por todo

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

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 (http://www.terawiki.clubdelphi.com/archivos/Delphi-Win32/Ejemplos/Buscar_datos_con_listas%20ordenadas.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:


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:


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 (http://www.terawiki.clubdelphi.com/archivos/Delphi-Win32/Ejemplos/Buscar_datos_con_listas%20ordenadas.zip) 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]]

¿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]]

...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 ; :confused::confused:

[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 :D

// Saludos

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

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...:D

[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 (http://www.esnips.com/web/delphi6)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

[roman]

lo que dijo roman acerca de que otro user podria borrar un cliente

¿Yo dije eso? :eek:

Yo lo que dije- y sigo diciendo- es que un listbox no es el recurso idóneo para una base de datos. En algún momento mencionaste que temías que el dbgrid no diera el ancho por tener muchos registros, pero un dbgrid es un control especializado precisamente para tratar con muchos registros.

Claro que 25,000 registros son muchos datos en cualquier circunstancia; a menos que los tengas todos en memoria, como sucede en el ejemplo de Neftalí. Y en ese caso, yo en lo personal optaría por un ClientDataSet que ya se ocupa de todo el asunto de índices y además no vas a tener que trabajar extra para hacer inserciones, modificaciones, etc.

Pero aún teniendo los datos en memoria, tú los estás leyendo de una base de datos. Dependiendo de la conexión que tengas, traer 25,000 datos del servidor a la memoria de la pc cliente, puede demorar bastante. Esto es algo que se viene cargando desde la época de las bases de datos de escritorio como Paradox o Access, cuando se estilaba presentar al usuario miles y miles de registros que jamás va a utilizar porque terminará filtrando sólo unos cuantos. Ese filtrado es mucho más eficiente que lo haga el servidor, de manera que al cliente sólo viajen los datos realmente necesarios.

// Saludos