Skip to content

Commit 4a33a50

Browse files
authored
Update README.md
1 parent 6a77f60 commit 4a33a50

1 file changed

Lines changed: 2 additions & 64 deletions

File tree

format/README.md

Lines changed: 2 additions & 64 deletions
Original file line numberDiff line numberDiff line change
@@ -1,64 +1,2 @@
1-
# ⚠ 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

Comments
 (0)