Merge branch 'main' of https://github.com/OpenSourceCommunityBrasil/PascalLibs

Author: mobius1qwe

config/README.md

@@ -1,103 +1,5 @@
 # Config
 ### units de criação de banco de dados de valores de configuração no padrão `chave:valor`
 
-### Exemplo antigo de uso para leitura:
-<details>
-<summary>código</summary>
-
-```Delphi
-procedure TfConfig.CarregaConfig;
-var
-  cfg: TSQLiteConfig;
-  JSONObj: TJSONObject;
-  I, J: Integer;
-begin
-  cfg := TSQLiteConfig.Create;
-  JSONObj := cfg.LoadConfig;
-  try
-    if JSONObj.Count > 0 then
-      with Self do
-        for I := 0 to pred(ComponentCount) do
-        begin
-          if (Components[I] is TLabeledEdit) then
-            (Components[I] as TLabeledEdit).Text :=
-              JSONObj.GetValue((Components[I] as TLabeledEdit).Name)
-              .ToString.Replace('"', '');
-
-          if (Components[I] is TValueListEditor) then
-            for J := 1 to pred((Components[I] as TValueListEditor).RowCount) do
-              (Components[I] as TValueListEditor).Cells[1, J] :=
-                JSONObj.GetValue((Components[I] as TValueListEditor).Keys[J])
-                .ToString.Replace('"', '');
-        end;
-  finally
-    JSONObj.Free;
-    cfg.Free;
-  end;
-end;
-```
-</details>
-
-### Exemplo novo de uso para leitura:
-```Delphi
-procedure TfConfig.CarregaConfig;
-var
-  cfg: TSQLiteConfig;
-begin
-  cfg := TSQLiteConfig.Create;
-  try
-    cfg.LoadForm(Self);
-  Finally
-    cfg.Free;
-  end;
-end;
-```
-
-### Exemplo antigo de uso para gravação:
-<details> <summary> código </summary>
-
-```Delphi
-procedure TfConfig.SalvaConfig;
-var
-  cfg: TSQLiteConfig;
-  JSONObj: TJSONObject;
-  I, J: Integer;
-begin
-  cfg := TSQLiteConfig.Create;
-  JSONObj := TJSONObject.Create;
-  try
-    with Self do
-      for I := 0 to pred(ComponentCount) do
-      begin
-        if Components[I] is TLabeledEdit then
-          JSONObj.AddPair((Components[I] as TLabeledEdit).Name,
-            (Components[I] as TLabeledEdit).Text);
-
-        if (Components[I] is TValueListEditor) then
-          for J := 1 to pred((Components[I] as TValueListEditor).RowCount) do
-            JSONObj.AddPair((Components[I] as TValueListEditor).Keys[J],
-              (Components[I] as TValueListEditor).Cells[1, J]);
-      end;
-    cfg.UpdateConfig(JSONObj);
-  finally
-    JSONObj.Free;
-    cfg.Free;
-  end;
-end;
-```
-</details>
-
-### Exemplo novo de uso para gravação:
-```Delphi
-procedure TfConfig.SalvaConfig;
-var
-  cfg: TSQLiteConfig;
-begin
-  cfg := TSQLiteConfig.Create;
-  try
-    cfg.SaveForm(Self);
-  Finally
-    cfg.Free;
-  end;
-end;
-```
+* Maiores informações:
+https://github.com/OpenSourceCommunityBrasil/PascalLibs/wiki/Config

dac/README.md

@@ -1 +1,2 @@
-Classes de abstração da comunicação com banco de dados
+# Classes de abstração da comunicação com banco de dados
+* Maiores informações: https://github.com/OpenSourceCommunityBrasil/PascalLibs/wiki/DAC

format/README.md

@@ -1,64 +1,2 @@
-# ⚠ 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)
-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.
-
-# VCLFormat
-Exemplo de uso:
-- Formatar um edit para mostrar valor monetário de acordo com o sistema operacional:
-```Delphi
-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:
-```Delphi
-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:
-```Delphi
-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:
-```Delphi
-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;
-```
+# Classes para auxiliar a formatação de valores em campos de texto e rótulos para o usuário.
+* Maiores informações: https://github.com/OpenSourceCommunityBrasil/PascalLibs/wiki/Format