Buscar

Evitando caracteres com acento ii

Código

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;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 13/06/03
Por: Felipe Monteiro
Visualizada: 2086 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009