Buscar en tlistbox con tedit

[kakesoft]

Muchos en este foros han utilizado pienso yo el Trucomanía y lo que quiero hacer pienso que sea sencillo. Me gustaría saber si alguien tiene una idea de como hacer lo mismo que hace el trucomanía en la ficha LISTADO de su explorador de trucos. O sea tengo un edit y un listbox con varias items en mi form y me gustaría hacer un sistema de búsqueda tal que a medida que vaya insertando caracteres en el edit se vayan que dando los items del listbox que coinciden con lo que está escrito en el edit, y si el edit no tiene nada escrito que se muestren todas las items del listox. Espero me ayuden.

graciassssss saludos a todos ......

[roman]

El explorador de trucos de trucomanía realmente usa un dbgrid así que posiblemente lo que haga sea lanzar un Locate del DataSet que use en el evento OnChange del Edit; algo como:

Código Delphi [-]
procedure Edit1Change(Sender: TObject);
begin
  Table1.Locate('titulo_truco', Edit1.Text, [loCaseInsensitive, loPartialKey]);
end;

Desconozco qué base de datos o cuáles componentes use para mantener la base de trucos. Pero aún si no usas propiamente una base de datos, puedes hacer uso de un ClientDataSet en el que almacenes los elementos que guardarías en el ListBox y en lugar de éste usar un DBGrid.

// Saludos

[[Héctor Randolph]]

Hace tiempo elaboré un componente que hace algo similar pero con un Edit y un ComboBox, no es exactamente lo que buscas pero tal vez puedas obtener algunas ideas del código.

AutoCompleteEdit

Instala el componente, agrega una instancia en un Form y modifica la propiedad SearchList para agregar las cadenas, después lo que escribes en el Edit se buscará en esta lista al estilo AutoCompletar.

Por otra parte, me parece mejor idea implementarlo con un DBGrid porque mi código utiliza búsqueda binaria y no es la forma óptima de hacerlo.

Un saludo.

[roman]

Empezado por HECTOR RANDOLPH

no es exactamente lo que buscas pero tal vez puedas obtener algunas ideas del código.

Y ¡vaya que se obtienen algunas ideas!

Tu componente me ha parecido magnífica. Gracias por compartirla.

// Saludos

[kakesoft]

Hector te diré que eso no es lo que busco pero bueno muchas gracias y te digo lo mismo que Roman tu componente está buenísimo me servirá para otras muchas cosas de importancia que tengo que hacer

[kakesoft]

Roman la idea que me diste no la he puesto en práctica todavía, o sea en estos momentos lo haré y te diré el resultado ok saludo a ti y a Hector en especial y en general a todos los que visitan esta importántísima página en INTERNET

[vtdeleon]

Saludos

Segun lo que entendí, quieres hacerlo mas o menos como lo hace la busqueda de Winamp (Jump). Que a medida que se digita, vaya filtrandose.
Usando la misma idea de roman sobre un DBGrid.Teniendo la propiedad Filtered del dataset habilitado

Código Delphi [-]
table1.filter:='campo='QuoteStr(edit1.text+'%');

Si esto no funciona hazlo con Query y sentencias SQL

[kakesoft]

Socios les diré que no he podido probar a completo lo que me expone Roman, pero Vtdeledon que no se nada de nada de sql ni de insertar una consulta en delphi. A ver si me explico y es si está dentro de tus posibilidades podrías explicármelo un poquito mejor, o sea, por pasos.

Graciasss de antemano

[[Héctor Randolph]]

¿Qué manejador de base de datos usas?

Así será más fácil responder.

[kakesoft]

Hector te diré que utilizo las Ado, para insertar en el form tablas de una base de datos hecha en Access.

[vtdeleon]

Empezado por kakesoft

Socios les diré que no he podido probar a completo lo que me expone Roman,

Ya lo probaste???

Empezado por kakesoft

pero Vtdeledon que no se nada de nada de sql

Consigue algunos manuales basicos en google,

Empezado por kakesoft

ni de insertar una consulta en delphi.

Con AdoQuery, en su propiedad SQL asignas la sentencia.

Empezado por kakesoft

Haber si me explico

Se dice A ver. Siento haberte corregido, pero se ve extraño esa palabra así

Empezado por kakesoft

y es si está dentro de tus posibilidades podrías explicármelo un poquito mejor, o sea, por pasos.

Creo que con lo dicho puedes hacerlo.

Código Delphi [-]
//Asignas en la propiedad SQL del Adoquery
{ Select campoamostrar from tabla
  where campo=:titulo
}
procedure Edit1Change(Sender: TObject);
begin
  with AdoQuery1 do begin
    Close;
    ParamByName('titulo').AsString:=Edit1.text;
    Open;
  end;
end;

[[Héctor Randolph]]

Hola vtdeleon

Yo diría que aún falta algo más por resolver, la idea es que
se filtren los registros que contienene como prefijo al texto que está escrito en el TEdit.

En el código que publicaste sólo se incluyen los registros que coinciden por completo con el texto.

Falta añadir un LIKE o algo asi.

Un saludo.

[vtdeleon]

Saludos

Empezado por HECTOR RANDOLPH

Yo diría que aún falta algo más por resolver, la idea es que
se filtren los registros que contienene como prefijo al texto que está escrito en el TEdit.

En el código que publicaste sólo se incluyen los registros que coinciden por completo con el texto.

Falta añadir un LIKE o algo asi.

Tienes toda la razon, se me escapo eso. Tambien puede usar containing*


*No estoy seguro si en toda BD se puede hacer

[[Héctor Randolph]]

Hola kakesoft prueba con esto

Código SQL [-]
SELECT * FROM nombre_tabla WHERE nombre_campo LIKE texto*

En donde texto es la palabra que deseas filtrar seguida de una asterisco.

Regularmente se utilizaría la cláusula LIKE asi

Código SQL [-]
SELECT * FROM tabla WHERE campo LIKE texto%

Pero en Access me parece que funciona con asterisco (*) y no con porcentaje (%).

Con esta sentencia y la solución de vtdeleon creo que queda resuelto.

Ahora mismo recordé que hace ya algún tiempo surgió una pregunta parecida a esta en este hilo, pero en este caso se trataba de interbase.

Un saludo.

[kakesoft]

Socios disculpen pero es que no me sale nada ya que en el evento onchange de edit me da un error y ese error está en Undeclared Identifier ParamByName

[roman]

Con ADO creo que sería algo así:

Código Delphi [-]
AdoQuery.Parameters.ParamByName('titulo').Value := Edit1.Text;

// Saludos

[vtdeleon]

Saludos

Asegurate que ParamByName tenga su referencia del Dataset.

Código Delphi [-]
query.ParamByName(.....
//o tal vez
with query do begin
  ...
  ...
  ...
  ParamByName(...
  ... 
  ...
end;

Un poco de tu codigo no caeria mal

[kakesoft]

Socios disculpen las molestias pero malas noticias, como no se trabajar con sql no se que tipo de errores me puede estar dando la sentencia que me aconsejan poner en la propiedad Sql del adoquery, pero esto no me ha resultado o mejor dicho no me sale lo que quiero, ustedes podrían enviarme un ejemplito por correo?, se los agradecería mucho, graciasss

[vtdeleon]

Saludos

Me he tomado la molestia de esto( sin ofender)

[kakesoft]

Socio exactamente lo que tienes hecho en ese ejemplito es lo que quiero lograr pero con los componentes ado, intenté utilizando tu mismo ejemplo y no pude, disculpa nuevamente, pero... me podrías explicar con esos controles cómo se hace, ya que trabajo con esos y no con otros, o sea me es muy difícil trabajar con las bases de datos hechas en database desktop, las punto dbf, entre otras, prefiero las mdb de access, por lo que quisiera filtrar los valores de un campo de una tabla en un dbgrid segun se inserten los caracteres en el edit, pero siempre acuérdense utilizando los ADO, me gustaría mucho tener un ejemplito con eso, no te molestes vdeleon, pienso que los integrantes de este foros tan bueno son para ayudarse, ok, lo mismo haría yo contigo si lo tuviera que hacer, no pienses que soy bruto con este problema, simplemente un inexperto, por ahora

saludossss graciassss a todos