Mascara de CNPJ

[danielrgoes]

Bom dia pessoal

Eu tenho um campo CNPJ no meu banco de dados que estao com os dados corridos ou seja

99999999999999

eu gostaria de colocar uma mascara nele para aparecer certo no DBgrid

porem quando eu coloco no editmask assim 99.999.999/9999-99

só aparece os dois primeiros numeros

alguém tem alguma ideia pra mim

[DanielR]

tche utilize o after open do clientdataset, ou seja depois de aberto você formata.

exemplo:

CDS.FieldByName(campo).DisplayFormat := 'R$ #,##0.00';

[Jhonas]

eu gostaria de colocar uma mascara nele para aparecer certo no DBgrid

porem quando eu coloco no editmask assim 99.999.999/9999-99

o correto do editmask é:

000\.000\.000/0000\-99;1;_

abraço

[danielrgoes]

Não deu certo

aparece so os 3 primeiros numeros

523. . / -

[Jhonas]

Não deu certo

aparece so os 3 primeiros numeros

523. . / -

o correto do editmask é: 000\.000\.000/0000\-99;1;_

OBS: Nesse exemplo usando essa mascara voce faz o seguinte

digita no MaskEdit1 o CNPJ ... clicando no botão1 o CNPF apareçe no Edit1 com a mascara

depois voce clica no botão2 e o CNPF apareçe novamente no MaskEdit2 com a mascara

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Mask, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    MaskEdit1: TMaskEdit;
    Button2: TButton;
    MaskEdit2: TMaskEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit1.Text := MaskEdit1.Text;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   MaskEdit2.Text := Edit1.Text;
end;

end.

Exemplos de Mascaras

CEP | 97105030 | 99999-999;1;_

CNPJ | 96132626006161 |99.999.999/9999-99;1;_

Codigo | 32829 | 99.999;1;_

CPF | 90809416034 | 999.999.999-99;1;_

Data | 22021978 | 99/99/9999;1;_

Hora | 210515 | 99:99:99;1;_

IE | 1090217517 | 999/9999999;1;_

Placa | ICE0730 | >lll 9999;1;_

Telefone | 5532231015 | (99) 9999-9999;1;_

RG | 805270725774IRGDSP | 999.999.999.999 >llll/ll;1;_

abraço