[firebase-br] RES: O Problema do João

[suporte em vivafisho.com.br]

Eu uso a rotina abaixo para tirar os acentos, tirei do site da DevMedia e
melhorei. 


Adaptei a rotina para seu uso e coloquei na sequencia como TrocaAcento :


// http://www.devmedia.com.br/articles/viewcomp.asp?comp=933function
RemoveAcento(Str: string): string;
const
  ComAcento = 'àèìòùâêîôûãõñáéíóúçäëïöüÀÈÌÒÙÂÊÎÔÛÃÕÑÁÉÍÓÚÇÄËÏÖܪº';
  SemAcento = 'aeiouaeiouaonaeioucaeiouAEIOUAEIOUAONAEIOUCAEIOU..';
var
   x: Integer;
begin;
  for x := 1 to Length(Str) do
  if Pos(Str[x],ComAcento) <> 0 then
    Str[x] := SemAcento[Pos(Str[x], ComAcento)];
  Result := Str;

end;




receba a string a ser pesqusia em Edit1 e chame a função :

NovoTexto := TrocaAcento( Edit1.text );

A função 'maiusculiniza' o texto passado como parâmetro.. rsrrssrrs


TrocaAcento(Str: string): string;
const
  ComAcento = 'àèìòùâêîôûãõñáéíóúçäëïöü';
  SemAcento = 'ÀÈÌÒÙÂÊÎÔÛÃÕÑÁÉÍÓÚÇÄËÏÖÜ';
var
   x: Integer;
begin;
  for x := 1 to Length(Str) do
  if Pos(Str[x],ComAcento) <> 0 then
    Str[x] := SemAcento[Pos(Str[x], ComAcento)];
  Result := Str;

end;




João Carlos Cordeiro
Curitiba - PR



-----Mensagem original-----
De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br] Em
nome de Wilson Altran
Enviada em: sexta-feira, 14 de novembro de 2008 08:40
Para: FireBase
Assunto: [firebase-br] O Problema do João

Ola Pessoal, preciso de uma ajuda...
quando eu faço
select upper('João%') as teste, UPPER(nome)
from POUELEMENTOS where NOME LIKE 'João%'
Resultado:
TESTE UP                       NOME
JOãO% JOÃO PEDRO ZILLO       João Pedro Zillo
JOãO% JOÃO FRANÇA PINTO       João França Pinto
JOãO% JOÃO ROLANDO TENUTO ROSSI     João Rolando Tenuto Rossi

select upper('João%') as teste, UPPER(nome)
from POUELEMENTOS where upper(NOME) LIKE upper('João%')
da um  resultset vazio
porque upper 'João' = JOãO
e     UPPER (NOME)  = JOÃO
QUANDO EU MANDO UMA QUERY QUE O USUARIO DIGITOU
joão o sistema informa que nao ha elementos
para a pesquisa...
Alguem pode me ajudar a contornar este problema
com o FB 1.5?


-- 
Atenciosamente,
Wilson Roberto Altran
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para saber como gerenciar/excluir seu cadastro na lista, use:
http://www.firebase.com.br/fb/artigo.php?id=1107
Para consultar mensagens antigas: http://firebase.com.br/pesquisa


__________ Informação do ESET NOD32 Antivirus, versão da vacina 3613
(20081114) __________

A mensagem foi verificada pelo  ESET NOD32 Antivirus.

http://www.eset.com

 

__________ Informação do ESET NOD32 Antivirus, versão da vacina 3613
(20081114) __________

A mensagem foi verificada pelo  ESET NOD32 Antivirus.

http://www.eset.com