Desculpe esqueci de avisar, a função estava sendo usada para converter tudo pra maiusculas.
Sorry. Osmar de Souza Júnior escreveu: > > Valeu, funciona. > > Só com uma salva, na string de caracteres SemAcento está tudo > maiúsculo, mas funciona. > > Obrigado. > > > > > --- Em delphi-br@yahoogrupos.com.br, -=SchiavoR=- <[EMAIL PROTECTED]> escreveu > > Tente esta funcao que eu adaptei, ela substitui varios tipos de > caracteres > > > > > > function RemoveAcentos(Texto: String): String; > > const ComAcento = > > 'áàãâäéèêëíìîïóòõôöúùûüçÁÀÃÂÄÉÈÊËÍÌÎÏÓÒÕÔÖÚÙÛÜÇ~^¨ºª°´`"'''; > > SemAcento = > > 'AAAAAEEEEIIIIOOOOOUUUUCAAAAAEEEEIIIIOOOOOUUUUC__________'; > > var > > i: Integer; > > begin > > for i := 1 to Length(Texto) do > > if (Pos(Texto[i],ComAcento)<>0) then Texto[i] := > > SemAcento[Pos(Texto[i],ComAcento)]; > > Result := Texto; > > end; > > > > > > Osmar de Souza Júnior escreveu: > > > > > > > > Alguém sabe me indicar uma rotina para converter caracteres acentuados > > > (tipo Ç, Ã, Ó) para não acentuados (como C, A, O) ??? > > > > > > 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] > > > > > > > > > > > > > ------------------------------------------------------------------------ > > > *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] > > > > <mailto:[EMAIL PROTECTED]> > > > > > > * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do > > > Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>. > > > > > > > > > > > -- > <<<<< 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] > <mailto:[EMAIL PROTECTED]> > > * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do > Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>. > > -- <<<<< 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
