Remover acentos de uma string em Delphi

Para remover acentos de uma string em Delphi, você pode criar uma função que substitui os caracteres acentuados pelos equivalentes sem acento. Aqui está um exemplo de uma função que faz isso:

 

   
function RemoverAcentos(const ATexto: string): string;
const
  ComAcento = 'áàãâéèêíìóòõôúùüçÁÀÃÂÉÈÊÍÌÓÒÕÔÚÙÜÇ';
  SemAcento = 'aaaaeeeiiioooouuucAAAAEEEIIIOOOOUUUC';
var
  I: Integer;
begin
  Result := ATexto;
  for I := 1 to Length(ComAcento) do
    Result := StringReplace(Result, ComAcento[I], SemAcento[I], [rfReplaceAll]);
end;

  
 
      

A função RemoverAcentos recebe uma string como entrada e retorna a mesma string com os caracteres acentuados substituídos pelos equivalentes sem acento.

Exemplo de uso:

 

   
var
  TextoComAcentos, TextoSemAcentos: string;
begin
  TextoComAcentos := 'Olá, como você está?';
  TextoSemAcentos := RemoverAcentos(TextoComAcentos);
  ShowMessage(TextoSemAcentos); // Mostrará 'Ola, como voce esta?'
end;

  
 
      

Neste exemplo, a função RemoverAcentos é usada para remover acentos da variável TextoComAcentos. Certifique-se de incluir todos os caracteres acentuados relevantes nas constantes ComAcento e SemAcento.

17/04/2026 05:06 Delphi 715
Topo