Fórum Aplicar mascara em tempo de execução #507364

  if Length(CNPJsoNumero) = 14 then
          begin

            qPgtoEstab.FieldByName('Correntista').EditMask := '\99.999.999/9999-99\';
            //MDPagtoEstabcorrentista.AsString        := qPgtoEstabCORRENTISTA.EditMask := '\99.999.999/9999-99\';
            //qPgtoEstabCORRENTISTA.Value    := CNPJsoNumero;
          end;
        end;
        MDPagtoEstabcorrentista.AsString        := qPgtoEstabCORRENTISTA.AsString;