[firebase-br] Dúvida com Strings

[Fabricio Videira]

Tem essa aqui testa ela pra ver se funciona ainda nao testei

Em 6 de setembro de 2011 16:00, Marcelo Carvalho <marcelo.nc em gmail.com>escreveu:

> E como utilizar esta DLL???
>
>
>
> --
> Atenciosamente,
>
> *Marcelo Carvalho*
> Fone (51) *8128.5285* / *8490-9349*
> MSN *carvalho826 em hotmail.com*
>
> Em 6 de setembro de 2011 15:53, Diego Maccari <diegomaccari em ig.com.br
> >escreveu:
>
> >
> > Na site do firebase
> > http://www.firebase.com.br/fb/**downloads.php?id=245<
> http://www.firebase.com.br/fb/downloads.php?id=245>
> >
> > StormUDF        16/03/06        2246 dls.
> >
> > Essa UDF auxilia na pesquisa de itens com acento. Por exemplo para os
> nomes
> > josé, Maçã, Chalé, João, ÀAAA, seria retornado JOSE, MACA, CHALE, JOAO,
> > AAAA. Ela simplesmente remove os acentos, porém deixando a letra correta.
> > Faz o mesmo com cedilha. Após retirar os carateres especiais, ela
> transforma
> > tudo pra maiúsculo. É algo bem simples, mas creio que irá ajudar. Ass:
> > Marcos Thomaz
> >
> >
> > ------------------------------**--------------------
> > From: "Saulo F. F. Zambotti" <sffzambotti em ig.com.br>
> > Sent: Tuesday, September 06, 2011 3:44 PM
> > To: <lista em firebase.com.br>
> > Subject: [firebase-br] Dúvida com Strings
> >
> >
> >  Boa tarde.
> >>
> >>
> >>
> >> Preciso fazer a comparação entre duas strings, em tabelas separadas. Sei
> >> que
> >> a função upper() transforma tudo em maiúsculas  resolvendo parte dos
> >> problemas.
> >>
> >>
> >>
> >> Alguém sabe me dizer se tem alguma função que retira os acentos???
> >>
> >>
> >>
> >>
> >>
> >> Obrigado
> >>
> >>
> >>
> >>
> >>
> >> Saulo
> >>
> >> ______________________________**________________
> >> 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<
> http://www.firebase.com.br/fb/artigo.php?id=1107>
> >> Para consultar mensagens antigas: http://firebase.com.br/**pesquisa<
> http://firebase.com.br/pesquisa>
> >>
> >
> >
> > ______________________________**________________
> > 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<
> http://www.firebase.com.br/fb/artigo.php?id=1107>
> > Para consultar mensagens antigas: http://firebase.com.br/**pesquisa<
> http://firebase.com.br/pesquisa>
> >
> ______________________________________________
> 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
>



-- 
*
Att.

Fabrício Videira*
*Desenvolvedor de Softwares*
*Técnico em Suporte de Micros
*
(*(14) 3283-1336 *(*(**14) 8816-3810*
**develop.fabricio em gmail.com*
-------------- Próxima Parte ----------
REMOVENDO CARACTERES COM ACENTO...

Esta função pega um string informada como parâmetro e retira todas as letras acentuadas substituindo-as por letras correspondentes sem acento. Ideal para validar nomes de usuários, por exemplo...

function AnsiToAscii ( str: String ): String;
var
i: Integer;
begin
  for i := 1 to Length ( str ) do
  case str[i] of
  'á': str[i] := 'a';
  'é': str[i] := 'e';
  'í': str[i] := 'i';
  'ó': str[i] := 'o';
  'ú': str[i] := 'u';
  'à': str[i] := 'a';
  'è': str[i] := 'e';
  'ì': str[i] := 'i';
  'ò': str[i] := 'o';
  'ù': str[i] := 'u';
  'â': str[i] := 'a';
  'ê': str[i] := 'e';
  'î': str[i] := 'i';
  'ô': str[i] := 'o';
  'û': str[i] := 'u';
  'ä': str[i] := 'a';
  'ë': str[i] := 'e';
  'ï': str[i] := 'i';
  'ö': str[i] := 'o';
  'ü': str[i] := 'u';
  'ã': str[i] := 'a';
  'õ': str[i] := 'o';
  'ñ': str[i] := 'n';
  'ç': str[i] := 'c';
  'Á': str[i] := 'A';
  'É': str[i] := 'E';
  'Í': str[i] := 'I';
  'Ó': str[i] := 'O';
  'Ú': str[i] := 'U';
  'À': str[i] := 'A';
  'È': str[i] := 'E';
  'Ì': str[i] := 'I';
  'Ò': str[i] := 'O';
  'Ù': str[i] := 'U';
  'Â': str[i] := 'A';
  'Ê': str[i] := 'E';
  'Î': str[i] := 'I';
  'Ô': str[i] := 'O';
  'Û': str[i] := 'U';
  'Ä': str[i] := 'A';
  'Ë': str[i] := 'E';
  'Ï': str[i] := 'I';
  'Ö': str[i] := 'O';
  'Ü': str[i] := 'U';
  'Ã': str[i] := 'A';
  'Õ': str[i] := 'O';
  'Ñ': str[i] := 'N';
  'Ç': str[i] := 'C';
end;
Result := str;
end;    
 


Um exemplo de como chamá-la:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.text := AnsiToAscii(Edit1.text);
end;

Nesse caso, eliminaria os acentos do campo edit1


Marcos Elias
www.mep.rg3.net