Buscar en tlistbox con tedit

[[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.

[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;