Fórum Pesquisa através de um Edit #173702
07/08/2003
0
Como posso realizar pesquisas através de um componente TEdit, de forma que à medida que vou digitando um nome, por exemplo, apareçam no prório Edit os nomes semelhantes ao que está sendo digitado.
Por exemplo, se preciso encontrar o JOAO SOUZA:
ao digitar JOAO S o Edit mostraria primeiro:
JOAO S[color=blue:57ba19a1d1]ANTOS[/color:57ba19a1d1]
mas, ao digitar a próxima letra: JOAO SO
o Edit exibisse finalmente o JOAO SO[color=blue:57ba19a1d1]UZA[/color:57ba19a1d1]
Espero ter conseguido explicar o que preciso.
Realizo as consultas através de Query com SQL, e utilizo banco de dados Interbase.
Se alguém conseguir ajudar, agradeço desde já.[/img]
Por exemplo, se preciso encontrar o JOAO SOUZA:
ao digitar JOAO S o Edit mostraria primeiro:
JOAO S[color=blue:57ba19a1d1]ANTOS[/color:57ba19a1d1]
mas, ao digitar a próxima letra: JOAO SO
o Edit exibisse finalmente o JOAO SO[color=blue:57ba19a1d1]UZA[/color:57ba19a1d1]
Espero ter conseguido explicar o que preciso.
Realizo as consultas através de Query com SQL, e utilizo banco de dados Interbase.
Se alguém conseguir ajudar, agradeço desde já.[/img]
Alexandre7
Curtir tópico
+ 0
Responder
Posts
07/08/2003
Marcelo Saviski
No evento [color=red:be64a073f5]onChange [/color:be64a073f5]do [u:be64a073f5]Edit[/u:be64a073f5]:
var SelPos : integer; begin //código para filtrar os registros semelhantes na qty if qry.IsEmpty then Exit; SelPos := Edit.SelStart; Edit.Text := qry.FieldByName(´Nome´).asString; Edit.SelStart := SelPos; Edit.SelLength := 100; end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)