Format

Home > Format

⚠ ATENÇÃO! ⚠ Na versão 11.3.1 do Delphi existe um problema interno no FMX Android que embaralha os dígitos, como é possível conferir aqui: RSP-41245

Classes para auxiliar a formatação de valores em campos de texto e rótulos para o usuário. Testado no Delphi 10.3.3, 10.4.2 e 11.2, outras versões podem funcionar.

Framework	Classe	Delphi	Lazarus
Firemonkey (FMX)	FMXFormat	XE3+	N/A
VCL	VCLFormat	7+	N/A
Lazarus (LCL)	lclformat	N/A	2.0+

VCLFormat

Exemplo de uso:

• Formatar um edit para mostrar valor monetário de acordo com o sistema operacional:

uses
  VCLFormat;
  
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Edit1.Formatar(Dinheiro);
end;

• Pegar um valor monetário formatado em um campo edit para salvar no banco de dados sem os caracteres especiais:

uses
  VCLFormat;
  
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Edit1.Formatar(Dinheiro);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  valorpago: Float;
begin
  valorpago := StrToFloatDef(Edit1.Decimal, 0);
end;

FMXFormat

Exemplo de uso:

• Formatar um edit para mostrar valor monetário de acordo com o sistema operacional:

uses
  FMXFormat;
  
procedure TForm1.Edit1Typing(Sender: TObject);
begin
  Edit1.Formatar(Dinheiro);
end;

• Pegar um valor monetário formatado em um campo edit para salvar no banco de dados sem os caracteres especiais:

uses
  FMXFormat;
  
procedure TForm1.Edit1Typing(Sender: TObject);
begin
  Edit1.Formatar(Dinheiro);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  valorpago: Float;
begin
  valorpago := StrToFloatDef(Edit1.Decimal, 0);
end;