Buscar

Retornar texto sem acentuação

Código

function SemAcento(vTexto: String): String;
Const
  ComAcentoZ = 'àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ';
  SemAcentoZ = 'aaeouaoaeioucuAAEOUAOAEIOUCU';
Var
  x: Integer;
begin
  for x:= 1 to Length(vTexto) do begin
    if Pos(vTexto[x],ComAcentoZ)<>0 then
      begin
        vTexto[x]:=SemAcentoZ[Pos(vTexto[x],ComAcentoZ)];
      end;
  end;
  Result:=vTexto;
end;

Publicidade

Vote na dica




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


Detalhes da dica

Categoria: Forms
Adicionada dia: 26/02/10
Por: Walter Lucchesi Dias
Visualizada: 2588 vezes

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