Dei uma melhorada na sua função, agora vc pode trocar por qualquer string
quando precisar.....
function BuscaTroca(Text, Troca, Busca : string): string;
var
N : Integer;
begin
for N := 1 to Length(Text) do
begin
if Copy(Text,N,1) = ' ' then
begin
Delete(Text,N,1);
Insert(Troca,Text,N);
end;
end;
Result := Troca + Text + Troca;
end;
O que vc acha ?
-----Mensagem original-----
De: Willian Jerônymo - Yahoo [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 26 de janeiro de 2005 14:52
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Pesquisa SQL
Você pode usar assim:
Crie essa function:
Function BuscaTroca(Text,Busca : String) : String;
Var N : Integer;
begin
For N := 1 to Length(Text) do
begin
if Copy(Text,N,1) = ' ' then
begin
Delete(Text,N,1);
Insert('%',Text,N);
end;
end;
Result := '%' + Text + '%';
end;
Depois declare uma variável:
Var
Troca : String;
E no seu código utilize assim:
Troca:= BuscaTroca(Edit3.Text,' '); //Para fazer a substituição dos
espaços em branco por %
Begin
Close;
SQL.Clear;
SQL.Add('SELECT * from Produtos');
SQL.Add('Where DescProd LIKE QuotedStr(Troca));
Open;
if DBEdit1.Text='' then
ShowMessage('Nome não cadastrado');
Edit3.Setfocus;
end;
Willian Jerônymo
----- Original Message -----
From: Eduardo Silva ®
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, January 26, 2005 1:27 PM
Subject: RES: [delphi-br] Pesquisa SQL
Willian passa essa função pra mim que eu tentei fazer do jeito que
colocaram
com e não to conseguindo....
-----Mensagem original-----
De: Willian Jerônymo - Yahoo [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 26 de janeiro de 2005 13:19
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Pesquisa SQL
O que você pode fazer é quando alguém for consultar alguma coisa você
pode
instruir a pessoal a digitar da seguinte maneira
no seu Edit: %SHAMPOO%300ML% que irá dar certo, ou você pode fazer de
uma
maneira automática
trocando os espaços em branco por % que fica melhor para o usuário.
Se quiser te passo uma função que faz essa troca.
Willian Jerônymo
----- Original Message -----
From: fabianojd
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, January 26, 2005 2:18 AM
Subject: [delphi-br] Pesquisa SQL
Gostaria de fazer pesquisa SQL por partes do nome completo. Ex.
quero achar um SHAMPOO com 300ML, mas não sei o nome completo. Então
digitaria: SHAMPOO 300ML.
Normalmente o nome é: SHAMPOO NOME 300ML.
a funcção que uso é:
Begin
Close;
SQL.Clear;
SQL.Add('SELECT * from Produtos');
SQL.Add('Where DescProd LIKE ''%'+Edit3.text+'%'' ');
Open;
if DBEdit1.Text='' then
ShowMessage('Nome não cadastrado');
Edit3.Setfocus;
end;
Obrigado.
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre
Belo
Horizonte Brasília
----------------------------------------------------------------------
----
----
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
------------------------------------------------------------------------
----
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
--------------------------------------------------------------------------
----
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
