Carlos,
Ou então vc pode usar a função StringReplace do Delphi ;-)
Ex.:
Var
Troca : String;
E no seu código utilize assim:
Troca:= StringReplace(Edit3.Text,' ','%',[rfReplaceAll]);
[ ]´s
Moacir
carlos alberto do amaral escreveu:
>Olá Willian Jerônymo,
>
> Vivendo e Aprendendo, muito legal !!!
>
> Um abraço,
>
> Carlos
>
>
>--- Em delphi-br@yahoogrupos.com.br, Willian Jerônymo - Yahoo
><[EMAIL PROTECTED]> escreveu
>
>
>>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]
>>
>>
>
>
>
>
>
>
>
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.3 - Release Date: 24/1/2005
--
<<<<< 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
