Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

terça-feira, 23 de junho de 2015

DELPHI - Limpar String com Caracteres Especiais (PT_BR)

Reações: 
Função para alterar os caracteres acentuados do nosso idioma


function HasSpecialCharacters(AWord: String): Boolean;
var
  I : Integer;
begin
  Result := False;
  for I := 1 to Length(AWord) do
  begin
    if Result then Break;

    case AWord[I] of
      'á',
      'à',
      'ã',
      'ä',
      'â',

      'é',
      'è',
      'ë',
      'ê',

      'ì',
      'í',
      'ï',
      'î',

      'ò',
      'ó',
      'õ',
      'ö',
      'ô',

      'ù',
      'ú',
      'ü',
      'û',

      'ç',

      'À',
      'Á',
      'Ã',
      'Ä',
      'Â',

      'È',
      'É',
      'Ë',
      'Ê',

      'Ì',
      'Í',
      'Ï',
      'Î',

      'Ò',
      'Ó',
      'Õ',
      'Ô',
      'Ö',

      'Ù',
      'Ú',
      'Ü',
      'Û',

      'Ç' : Result := True;
    end;
  end;
end;

function ChangeSpecialCharacters(AWord: String): String;
var
  I : Integer;
begin
  for I := 1 to Length(AWord) do
  begin
    case AWord[I] of
      'á',
      'à',
      'ã',
      'ä',
      'â' : AWord[I] := 'a';

      'é',
      'è',
      'ë',
      'ê' : AWord[I] := 'e';

      'ì',
      'í',
      'ï',
      'î' : AWord[I] := 'i';

      'ò',
      'ó',
      'õ',
      'ö',
      'ô' : AWord[I] := 'o';

      'ù',
      'ú',
      'ü',
      'û' : AWord[I] := 'u';

      'ç' : AWord[I] := 'c';

      'À',
      'Á',
      'Ã',
      'Ä',
      'Â' : AWord[I] := 'A';

      'È',
      'É',
      'Ë',
      'Ê' : AWord[I] := 'E';

      'Ì',
      'Í',
      'Ï',
      'Î' : AWord[I] := 'I';

      'Ò',
      'Ó',
      'Õ',
      'Ô',
      'Ö' : AWord[I] := 'O';

      'Ù',
      'Ú',
      'Ü',
      'Û' : AWord[I] := 'U';

      'Ç' : AWord[I] := 'C';
    end;
  end;
  Result := AWord;
end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer