Pesquisa através de um Edit

Delphi

07/08/2003

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]


Alexandre7

Alexandre7

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

07/08/2003

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;



GOSTEI 0
POSTAR