[firebase-br] Dúvida com Strings

[Marcio Gleyson Silva]

function RetiraAcento(const lcString: string): string;
const
  laAcentuados: array[1..46] of Char = ('á', 'Á', 'à', 'À', 'ã', 'Ã', 'â',
'Â', 'ä', 'Ä',
    'é', 'É', 'è', 'È', 'ê', 'Ê', 'ë', 'Ë',
    'í', 'Í', 'ì', 'Ì', 'î', 'Î', 'ï', 'Ï',
    'ó', 'Ó', 'ò', 'Ò', 'õ', 'Õ', 'ô', 'Ô', 'ö', 'Ö',
    'ú', 'Ú', 'ù', 'Ù', 'û', 'Û', 'ü', 'Ü',
    'ç', 'Ç');

  laNaoAcentuados: array[1..46] of Char = ('a', 'A', 'a', 'A', 'a', 'A',
'a', 'A', 'a', 'A',
    'e', 'E', 'e', 'E', 'e', 'E', 'e', 'E',
    'i', 'I', 'i', 'I', 'i', 'I', 'i', 'I',
    'o', 'O', 'o', 'O', 'o', 'O', 'o', 'O', 'o', 'O',
    'u', 'U', 'u', 'U', 'u', 'U', 'u', 'U',
    'c', 'C');
var
  lnLoop: Integer;
begin
  Result := lcString;
  for lnLoop := Low(laAcentuados) to High(laAcentuados) do
    Result := StringReplace(Result, laAcentuados[lnLoop],
laNaoAcentuados[lnLoop], [rfReplaceAll]);
end;




Em 6 de setembro de 2011 15:44, Saulo F. F. Zambotti
<sffzambotti em ig.com.br>escreveu:

> 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
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>