(Resolvido) Formatar Cnpj

[Eder]

Ola..

Tenho um QrDbText do Quick que recebe o valor que é um CNPJ(campo tipo numerico).

ele aparece assim no relatorio (formato): 82653653000100

mas eu gostaria de por uma maskara ou formar para ficar assim:

82.653.653/0001-00

mas não to conseguindo....

já tentei de vários formas uma delas foi esta:

procedure TFormPOCompra.QRDBText13Print(sender: TObject;
  var Value: String);
begin
Value := FormatFloat('00.000.000/0000-00',StrToFloat(Query1[QrDBtext13.DataField]));
end;

mas não funca certo...sai tudo misturado.

Grato

[Jhonas]

Uma das maneiras:

Function FormataCNPJ(CNPJ : string): string;
begin
   Result :=Copy(CNPJ,1,2)+'.'+Copy(CNPJ,3,3)+'.'+Copy(CNPJ,6,3)+'/'+Copy(CNPJ,9,4)+'-'+Copy(CNPJ,13,2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit1.Text := '82653653000100';
   Label1.Caption := FormataCNPJ(Edit1.Text);
end;

outra maneira:

procedure TForm1.Button2Click(Sender: TObject);
begin
   Maskedit1.EditMask:='00.000.000/0000-00;0';
   Maskedit1.Text := Edit1.Text;
   Label1.caption := Maskedit1.Text;
end;

abraço

[Eder]

Ola..Jonas

Só para Completar caso alguém precise.

Eu cima da tua idéia fiz assim:

//função para formatar o cnpj

Function FormataCNPJ(CNPJ : string): string;
begin
   Result :=Copy(CNPJ,1,2)+'.'+Copy(CNPJ,3,3)+'.'+Copy(CNPJ,6,3)+'/'+Copy(CNPJ,9,4)+'-'+Copy(CNPJ,13,2);
end;

//função para formatar o CPF

Function FormataCPF(CPF : string): string;
begin
   Result :=Copy(CPF,1,3)+'.'+Copy(CPF,4,3)+'.'+Copy(CPF,7,3)+'-'+Copy(CPF,10,2);
end;

Para Comparar se é CNPJ OU CPF e Chamar:

procedure TFormPOCompra.QRDBText13Print(sender: TObject;
  var Value: String);
begin
{Formata o CNPJ e CPF}
IF (Length(Value)=14) THEN
 Begin
  Value := FormataCNPJ(value);
 end
   Else
 Begin
  Value := FormataCPF(value);
 End; End;

valeu..Carinha...Agradecido.

Abraço :D