Fórum Retirar Acento de uma String ???? #268057

448 - Retirando acentos de uma string
function RemoveAcento(Str:String): String;
Const
ComAcento = ´àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ´;
SemAcento = ´aaeouaoaeioucuAAEOUAOAEIOUCU´;
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;

fonte HP:www.lloydsoft.hpg.ig.com.br