[Delphi] Procurar com edit em listbox ou memo

[NoSlake 56]

 

Posso ter um memo ou um listbox. Quero pesquisar algo nele, pode estar em qualquer linha.

Queria que a função me retornasse "sim" se achou a exatamente o que estava escrito no edit no listbox ou memo. Se não retorna "não"

[Chimpz 2]

Veja se é isso :

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[Inoxybel 51]

Você pode utilizar funções que "procuram" strings dentro de outras e tratar o resultado.

 

Se quiser uma pesquisa exata, sem CASE SENSITIVE (Positivo <> positivo), utilize funções como LowerCase/UperCase para comparar as strings de forma igual.

[NoSlake 56]

Não, precisava ser Case Sensitive mesmo, a string precisa ser idêntica à digitada no Edit.

 

Mudei o código do Chimp para:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Mas ele retorna cada hora um numero diferente e errado...

[Inoxybel 51]

To sem Delphi pra verificar.

 

Se quiser uma alternativa, declare strutils (Acho que é assim) nas uses, e utilize AnsiContainsStr( Texto1, Texto2)...

[FioDuMaLL 24]

só usar a função Pos, essa função retorna 1 caso achar, e 0 caso não achar o texto, ficaria assim:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

só lembrando que a função Pos é sensitive case

caso precisar burlar o sensitive case use lowercase ou uppercase como o baixarhack já disse.

[PikeSob 2]

Pelo que entendi você só quer saber se encontrou ou não, então ta ai...

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[NoSlake 56]

Ah claro, obrigado a todos !

A função estava certa, eu não tinha lido e entendido direito ;/