Sugestão: Remoção De Máscara De Cnpj

[ferbigode]

Olá pessoal, há alguns dias, eu perguntei a um moderador do fórum se era possível implementar um pequeno recurso em alguns dos componentes do ACBr, que é a remoção da máscara de CNPJ, visto que a maioria das especificações requerem o CNPJ sem máscara. Talvez seria legal também remover de inscrição estadual e municipal. Porém o moderador indicou que eu criasse um tópico, pois assim diversos usuários estariam cientes disso, e possivelmente um moderador se responsabilizaria por isso.

 

Atualmente, eu utilizo a seguinte função toda vez que eu for passar um CNPJ:

 

function removeMascaraCNPJ(cnpjComMascara: string): string;
begin
  result := Trim(cnpjComMascara);
  result := StringReplace(result, '.', '', [rfReplaceAll]);
  result := StringReplace(result, '/', '', [rfReplaceAll]);
  result := StringReplace(result, '-', '', [rfReplaceAll]);
end;

procedure Button1.Click(Sender: TObject);
begin
  ShowMessage(removeMascaraCnpj(ACBrECF1.CNPJ));
end;

 

Obrigado pela atenção.

Editado 23 Janeiro, 2013 por ferbigode

[Juliomar Marchetti]

Posso dar uma sugestão?

na unit ACBrUtil existe a function OnlyNumber();

veja:

function OnlyNumber(const AValue: AnsiString): String;

 

acredito que se usar ela vai resolver por exemplo essa situação de cnpj sem mascara

[ferbigode]

Eu não conhecia essa unit e nem essa função. Mas ela é muito melhor e mais genérica, valeu!