Programação

Como Remover Acentos de Strings – Delphi

Curta Nossa Página

Função para remover acentos de string e char com Delphi

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

Como usar:

Edit1.Text := RemoveAcentos(Edit1.Text)

Etiquetas
Botão Voltar ao topo