Function TiraAcentos(s : string): string;
const
Acentos = 'ÁÍÓÚÉÄÏÖÜËÀÌÒÙÈÃÕÂÎÔÛÊáíóúéäïöüëàìòùèãõâîôûêÇç|#$%^&*()!~`"';
Letras = 'AIOUEAIOUEAIOUEAOAIOUEaioueaioueaioueaoaioueCc ';
var
i: Integer;
begin
for i := 1 to Length(Acentos) do
while Pos(acentos[i],s)>0 do
s[Pos(acentos[i],s)]:=Letras[i];
Result := S;
end;
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário