Pesquisar em campo memo

Delphi

25/02/2006

Amigos,

Esse código aí em baixo é do meu botão pesquisar e está funcionando beleza, mas só que estou restrito, pois só consigo fazer a pesquisar pelas iniciais que estão gravadas neste campo (memo). Gostaria de digitar o ´NOME´ e a pesquisa ser em todo o campo, encontrar a palavra pesquisada em qualquer parte do campo (inicio/ meio/ fim). Então como eu poderei fazer? Continuaria usando LIKE?
O resultado é apresentado em um DBGrid.


[b:98807f3778]procedure TFrmPesquisaMinuta.BtnPesquisarClick(Sender: TObject);
begin
if MemoK_P.Text<>´´ then
begin
with QryConsulta do // Evita colocar o QryConsulta na frente do comando
begin
Close;
Sql.Clear;
Sql.Add(´Select ID_M, K_P from TabCadastroMinuta where K_P like ´+#39+MemoK_P.Text+´¬´+39);
Open;
end;
end;
end;[/b:98807f3778]


Obrigado

[color=green:98807f3778]Título editado por gandalf.nho. Não poste totalmente em maiúsculas.[/color:98807f3778]


Jrcosmoluis

Jrcosmoluis

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

25/02/2006

Colega,

Use o sinal ¬ (percente) antes também. Veja:

Sql.Add(´Select ID_M, K_P from TabCadastroMinuta where K_P like ´+#39+´¬´+MemoK_P.Text+´¬´+39); 



GOSTEI 0
Jrcosmoluis

Jrcosmoluis

25/02/2006

Amigo,

obrigado pela grande dica.

Valeu


GOSTEI 0
POSTAR