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: [email protected]
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: [email protected]
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: [email protected]
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: [email protected]
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
