Dicas - Removendo acentos de uma string

Voc precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download voc precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (2)  (0)

Crie uma funo com a seguinte declarao:

function RemoveAcento(Str: string): string;

Implemente-a com o seguinte cdigo:

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;

por Luciano Pimenta

 
Voc precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dvida?