Retirar Acento de uma String ????
Pessoal,
Boa Tarde!
Como faço para retirar todos os acentos de uma determinada String?
Se alguém puder ajudar ficarei Agradecido.
Abração a todos!
Boa Tarde!
Como faço para retirar todos os acentos de uma determinada String?
Se alguém puder ajudar ficarei Agradecido.
Abração a todos!
Mmbarros
Curtidas 0
Respostas
Motta
10/02/2005
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
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
GOSTEI 0