You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
# ⚠ 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](https://quality.embarcadero.com/browse/RSP-41245)
2
-
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.
3
-
4
-
# VCLFormat
5
-
Exemplo de uso:
6
-
- Formatar um edit para mostrar valor monetário de acordo com o sistema operacional:
7
-
```Delphi
8
-
uses
9
-
VCLFormat;
10
-
11
-
procedure TForm1.Edit1Change(Sender: TObject);
12
-
begin
13
-
Edit1.Formatar(Dinheiro);
14
-
end;
15
-
```
16
-
17
-
- Pegar um valor monetário formatado em um campo edit para salvar no banco de dados sem os caracteres especiais:
18
-
```Delphi
19
-
uses
20
-
VCLFormat;
21
-
22
-
procedure TForm1.Edit1Change(Sender: TObject);
23
-
begin
24
-
Edit1.Formatar(Dinheiro);
25
-
end;
26
-
27
-
procedure TForm1.Button1Click(Sender: TObject);
28
-
var
29
-
valorpago: Float;
30
-
begin
31
-
valorpago := StrToFloatDef(Edit1.Decimal, 0);
32
-
end;
33
-
```
34
-
35
-
# FMXFormat
36
-
Exemplo de uso:
37
-
- Formatar um edit para mostrar valor monetário de acordo com o sistema operacional:
38
-
```Delphi
39
-
uses
40
-
FMXFormat;
41
-
42
-
procedure TForm1.Edit1Typing(Sender: TObject);
43
-
begin
44
-
Edit1.Formatar(Dinheiro);
45
-
end;
46
-
```
47
-
48
-
- Pegar um valor monetário formatado em um campo edit para salvar no banco de dados sem os caracteres especiais:
49
-
```Delphi
50
-
uses
51
-
FMXFormat;
52
-
53
-
procedure TForm1.Edit1Typing(Sender: TObject);
54
-
begin
55
-
Edit1.Formatar(Dinheiro);
56
-
end;
57
-
58
-
procedure TForm1.Button1Click(Sender: TObject);
59
-
var
60
-
valorpago: Float;
61
-
begin
62
-
valorpago := StrToFloatDef(Edit1.Decimal, 0);
63
-
end;
64
-
```
1
+
# 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.
2
+
* Maiores informações: https://github.com/OpenSourceCommunityBrasil/PascalLibs/wiki/Format
0 commit comments