+ Adição de tipo NONE para limpar formatação do campo.

Author: mobius1qwe

format/FMXFormat.pas

@@ -28,7 +28,7 @@ interface
     'O', 'O', 'O', 'U', 'U', 'U', 'U', 'C', 'N', 'Y', 'Y');
 
 type
-  TFormato = (&Date, Bits, CEP, CEST, CFOP, CNH, CNPJ, CNPJorCPF, CPF, CREA, CRM,
+  TFormato = (None, &Date, Bits, CEP, CEST, CFOP, CNH, CNPJ, CNPJorCPF, CPF, CREA, CRM,
     Dinheiro, Hora, HoraCurta, InscricaoEstadual, NCM, OAB, Personalizado, Peso,
     Porcentagem, Telefone, TituloEleitor, Valor, VeiculoMercosul, VeiculoTradicional);
 
@@ -400,6 +400,9 @@ function TFormatHelper.Formatar(Formato: TFormato; Texto: string;
   ExtraArg: Variant): string;
 begin
   case Formato of
+    None:
+      Texto := AlfaNumerico(Texto);
+
     &Date:
       Texto := FormataData(SomenteNumero(Texto));
 

format/VCLFormat.pas

@@ -28,7 +28,7 @@ interface
     'O', 'O', 'O', 'U', 'U', 'U', 'U', 'C', 'N', 'Y', 'Y');
 
 type
-  TFormato = (&Date, Bits, CEP, CEST, CFOP, CNH, CNPJ, CNPJorCPF, CPF, CREA, CRM,
+  TFormato = (None, &Date, Bits, CEP, CEST, CFOP, CNH, CNPJ, CNPJorCPF, CPF, CREA, CRM,
     Dinheiro, Hora, HoraCurta, InscricaoEstadual, NCM, OAB, Personalizado, Peso,
     Porcentagem, Telefone, TituloEleitor, Valor, VeiculoMercosul, VeiculoTradicional);
 
@@ -389,6 +389,9 @@ function TFormatHelper.Formatar(Formato: TFormato; Texto: string;
   ExtraArg: Variant): string;
 begin
   case Formato of
+    None:
+      Texto := AlfaNumerico(Texto);
+
     &Date:
       Texto := FormataData(SomenteNumero(Texto));
 

format/lclformat.pas

@@ -1,4 +1,4 @@
-// Maiores Informações
+// Maiores Informações
 // https://github.com/OpenSourceCommunityBrasil/PascalLibs/wiki
 
 unit LCLFormat;
@@ -35,7 +35,7 @@ interface
     'O', 'O', 'O', 'O', 'O', 'U', 'U', 'U', 'U', 'C', 'N', 'Y', 'Y');
 
 type
-  TFormato = (&Date, Bits, CEP, CEST, CFOP, CNH, CNPJ, CNPJorCPF, CPF, CREA,
+  TFormato = (None, &Date, Bits, CEP, CEST, CFOP, CNH, CNPJ, CNPJorCPF, CPF, CREA,
     CRM, Dinheiro, Hora, HoraCurta, InscricaoEstadual, NCM, OAB, Personalizado, Peso,
     Porcentagem, Telefone, TituloEleitor, Valor, VeiculoMercosul,
     VeiculoTradicional);
@@ -405,6 +405,9 @@ function TFormatHelper.Formatar(Formato: TFormato; Texto: string;
   ExtraArg: variant): string;
 begin
   case Formato of
+    None:
+      Texto := AlfaNumerico(Texto);
+
     &Date:
       Texto := FormataData(SomenteNumero(Texto));
 
@@ -580,6 +583,9 @@ function TFormatHelper.Primeiros(aStr: string; aDigitos: integer): string;
     Result := Copy(aStr, 1, aDigitos);
 end;
 
+/// <returns>
+/// Devolve o texto sem acentuação mantendo os outros caracteres.
+/// </returns>
 function TFormatHelper.RemoveAcentos(aStr: string): string;
 var
   I: integer;