Pesquisa em combobox
Gostaria de fazer o seguinte:
Através de um edit por exemplo, colocar uma palavra e apertar um botão, quando isto ocorrer o sistema vai pesquisar no combobox uma palavra e mostrar ela no combo como a que aparece na tela sem apertar o botão.
O problema é que o testo no combo pode ser:
[b:d6fdacb453]Que o Sol ilumine sempre o seu coração[/b:d6fdacb453] e ele apresentar a que mais se assemelha com o texto que no caso poderia ser
´[b:d6fdacb453]Sol ilumine[/b:d6fdacb453]´ por exemplo.
Alguém pode me ajudar?
Através de um edit por exemplo, colocar uma palavra e apertar um botão, quando isto ocorrer o sistema vai pesquisar no combobox uma palavra e mostrar ela no combo como a que aparece na tela sem apertar o botão.
O problema é que o testo no combo pode ser:
[b:d6fdacb453]Que o Sol ilumine sempre o seu coração[/b:d6fdacb453] e ele apresentar a que mais se assemelha com o texto que no caso poderia ser
´[b:d6fdacb453]Sol ilumine[/b:d6fdacb453]´ por exemplo.
Alguém pode me ajudar?
Emir Neto
Curtidas 0
Respostas
Welter
20/05/2004
Tenta com o Indexof, pois ele pesquisa as primeiras letras da palavra tambem, so que se ocorrerem mais iguais ele pega a primeira.
Se 1 letra estiver diferente nao pega nada...
O bom mesmo e voce fazer um for que passe em todas os items do combo e quando achou oque voce quer, seta o itemindex ex:
for x := 0 to MeuCombo.Items.Count -1 do
if MeuCombo.Items[x] = MeuTexto then
MeuCombo.ItemIndex := x;
Abracao
Se 1 letra estiver diferente nao pega nada...
O bom mesmo e voce fazer um for que passe em todas os items do combo e quando achou oque voce quer, seta o itemindex ex:
for x := 0 to MeuCombo.Items.Count -1 do
if MeuCombo.Items[x] = MeuTexto then
MeuCombo.ItemIndex := x;
Abracao
GOSTEI 0