legal danilo, eu já uso essa função, mas acho que vc num entendeu minha dúvida, quero poder gravar informações no banco e depois efetuar buscas sem problemas independente de acentos ou não, cito o exemplo que passei novamente: eu queria dar a liberdade do usuário pesqusar independente de acento por exemplo, se ele digitasse São Paulo ou Sao Paulo, viria na Busca São Paulo entendeu? mas pra eu fazer essa busca eu teria que ter uma função que removesse acentos no banco tb.
_____ De: Danilo Antonio Leite [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 22 de outubro de 2004 13:13 Para: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Acentuação em Pesquisa!!! Aí vai uma função que remove acento. Você pode acrescentar os caracteres esperados e substituir pelos que desejar. Espero que ajude. function TFrmPerformanceOper.RemoveAcento(Str:String): String; Const ComAcento = 'àâêôûãõáéíóúçüÀ ÔÛÃÕÁÉÍÓÚÇÜ.,;/\()'; SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU1234567'; 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; Atenciosamente, Danilo Antônio Leite Arcadian Tecnologia SA [EMAIL PROTECTED] (31)3241-8228 ramal 216 _____ De: Marcello [mailto: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> .com.br] Enviada em: sexta-feira, 22 de outubro de 2004 13:13 Para: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Assunto: Acentuação em Pesquisa!!! Pessoal, qual a melhor forma de se trabalhar com pesquisas quando os dados gravados no Banco de Dados estão acentuados? Hoje eu forço os dados a serem gravados sem acentuação nenhuma e nas pesquisas eu limpo a acentuação antes de pesquisar. Mas e se eu quisesse salvar os dados com acentuação, eu queria dar a liberdade do usuário pesqusar independente de acento por exemplo, se ele digitasse São Paulo ou Sao Paulo, viria na Busca São Paulo. Existe tb o problema quando é maiúsculo ou minúsculo. Como vcs resolvem esse problema???? Existe alguma função par IB que remova acentuação? [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
