Buscar en tlistbox con tedit

[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