Fórum pesquisa parcial em um ListBox ? #261715
13/12/2004
0
Como faço para localizar um item em um ListBox, porem pegando apenas parte do texto ?
eu estou utilizando o seguinte comando:
ListBox1.ItemIndex := ListBox1.Items.IndexOf(´edit.text´);
porem so localiza se o todo o texto for igual ao item , gostaria que ele ja lecalizasse ante.
Ex.
item : Automovel , quando no edit tivesse auto, ja localizasse o registro
Alguem sabe como faço isso ?
Obrigado
eu estou utilizando o seguinte comando:
ListBox1.ItemIndex := ListBox1.Items.IndexOf(´edit.text´);
porem so localiza se o todo o texto for igual ao item , gostaria que ele ja lecalizasse ante.
Ex.
item : Automovel , quando no edit tivesse auto, ja localizasse o registro
Alguem sabe como faço isso ?
Obrigado
Brunohenrique
Curtir tópico
+ 0
Responder
Posts
13/12/2004
Rômulo Barros
Coloque um edit(valor a ser procurado), um Listbox(adicione valores para testar) e um botão para executar a pesquisa. Agora, coloque ocódigo abaixo no evento onclick do botão:
procedure TForm1.Button1Click(Sender: TObject);
Var
Controle : Integer;
begin
For Controle := 0 To ListBox1.Items.Count -1 Do
Begin
If(Pos(AnsiUpperCase(EdtPesquisa.Text),AnsiUpperCase(ListBox1.Items[Controle])) > 0)Then
Begin
ShowMessage(´Achou... Viva viva.. como tou feliz.. haua´
+ Chr(10)
+ ´Posição no ListBox: ´
+ IntToStr(Controle));
Exit;
End;
End;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)