Exemplo máscara numérica ACBr

[Alencar Castro]

Bom dia !

Alguém teria um exemplo de utilização da função ACBrValidador.FormatarMascaraNumerica() ? Eu quero ir formatando o valor enquanto a pessoa digita.

Obrigado.

Editado 25 Agosto, 2021 por Alencar Castro

[Juliomar Marchetti]

olha o exemplo do ACBrTEFAPI tem um formulario frmObterCampo lá faz isso que tu quer

[Daniel Simoes]

No Demo do TEF, acabei não usando esse Método em específico, no Demo do TEF.. mas usei o FormatarMascaraDinamica

procedure TFormObtemCampo.edtRespostaChange(Sender: TObject);
var
  AValor: Int64;
  TextVal: String;
begin
  if (fTipoCampo in [tcoCurrency, tcoDecimal]) then
  begin
    AValor := StrToIntDef(OnlyNumber(edtResposta.Text), 0);
    TextVal := FormatFloatBr(AValor/100, FloatMask(2, (fTipoCampo = tcoCurrency)));
    if (fTipoCampo = tcoCurrency) then
      TextVal := 'R$ '+TextVal;

    edtResposta.Text := TextVal;
    edtResposta.SelStart := Length(edtResposta.Text);
  end
  else if (fMascara <> '') then
  begin
    edtResposta.Text := FormatarMascaraDinamica( RemoverMascara(edtResposta.Text, fMascara), fMascara);
    edtResposta.SelStart := Length(edtResposta.Text);
  end;
end;

 

Um Exemplo de máscara para Datas, seria: "**/**/**"

A ideia é que as Barras apareçam, conforme a digitação do usuário...

[Alencar Castro]

Queria formatar uma porcentagem. Os exemplos citados acima server para os que eu citei agora ? OBS estou desenvolvendo um app.

Exemplo se digitado 105 tem que ficar 1,05

Outro exemplo, se digitado 2039 tem que ficar 20,39

 

[Daniel Simoes]

No Post acima.. veja o código do IF

  if (fTipoCampo in [tcoCurrency, tcoDecimal]) then

[Juliana Tamizou]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado