https://github.com/hashload/resultpairbr
https://github.com/hashload/resultpairbr
Last synced: 4 months ago
JSON representation
- Host: GitHub
- URL: https://github.com/hashload/resultpairbr
- Owner: HashLoad
- License: gpl-3.0
- Created: 2024-02-19T18:13:26.000Z (almost 2 years ago)
- Default Branch: main
- Last Pushed: 2024-02-19T18:22:33.000Z (almost 2 years ago)
- Last Synced: 2024-04-14T00:32:25.479Z (over 1 year ago)
- Language: Pascal
- Size: 286 KB
- Stars: 0
- Watchers: 5
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
- License: LICENSE
Awesome Lists containing this project
README
# ResultPairBr Library for Delphi
ResultPairBr é uma library para tratamento de resultados em aplicações Delphi. Ele fornece uma abordagem elegante e segura para lidar com resultados de operações que podem ter sucesso ou falha, ele possui dois campos: um para armazenar o valor do resultado em caso de sucesso, e outro para armazenar o motivo da falha em caso de erro. Com o ResultPairBr, os desenvolvedores podem criar operações que retornam um TResultPair em vez de um valor simples. Isso permite que o código que chama a operação verifique se o resultado foi bem sucedido ou não, e trate cada caso de forma apropriada
## 🏛 Delphi Versions
Embarcadero Delphi XE e superior.
## ⚙️ Instalação
Instalação usando o [`boss install`](https://github.com/HashLoad/boss) comando:
```sh
boss install "https://github.com/HashLoad/resultpairbr"
```
#@ :hammer: Recursos de para caputra o retorno duplo
:heavy_check_mark: `Recurso 1`: ```TResultPairBr``` para (Definição do retorno duplo)
:heavy_check_mark: `Recurso 2`: ```TResultPairBr.TryException``` para (Captura do retorno duplo)
:heavy_check_mark: `Recurso 3`: ```TResultPairBr.Map(MapValue).TryException``` para (Operações antes do retono duplo)
## ⚡️ Como usar
#### Modelo 1 de uso
```Delphi
function TController.Failure: String;
var
LResult: TResultPair;
LMessage: String;
begin
Result := '';
LResult := FRepository.fetchProductsFailure;
try
if LResult.isSuccess() then
LMessage := LResult.ValueSuccess
else
if LResult.isFailure() then
LMessage := LResult.ValueFailure.Message;
Result := LMessage;
finally
LResult.Free;
end;
end;
```
#### Modelo 2 de uso
```Delphi
function TController.Success: String;
var
LResult: TResultPair;
LMessage: String;
begin
Result := '';
LResult := FRepository.fetchProductsSuccess;
try
LMessage := LResult.TryException(
function: String
begin
Result := LResult.ValueSuccess;
end,
function: String
begin
Result := LResult.ValueFailure.Message;
end
);
Result := LMessage;
finally
LResult.Free;
end;
end;
```
#### Modelo 3 de uso com Thread
```Delphi
procedure TController.FutureNoAwait;
var
LResult: IFuture;
LMessage: String;
begin
LMessage := '';
TThread.CreateAnonymousThread(
procedure
begin
LResult := TTask.Future(FRepository.fetchProductsFuture);
try
LMessage := LResult.Value.Map(MapValue).TryException(
function: String
begin
Result := LResult.Value.ValueSuccess;
end,
function: String
begin
Result := LResult.Value.ValueFailure.Message;
end
);
TThread.Queue(nil,
procedure
begin
if Assigned(FThreadObserver) then
FThreadObserver(LMessage);
end);
finally
// Libera o tipo TResultPair que é criado internamente ao TTask
LResult.Value.Free;
// Libera o TTask.Future<>
LResult := nil;
end;
end
).Start;
end;
```
## ✍️ License
[](https://opensource.org/licenses/LGPL-3.0)
## ⛏️ Contribuição
Nossa equipe adoraria receber contribuições para este projeto open source. Se você tiver alguma ideia ou correção de bug, sinta-se à vontade para abrir uma issue ou enviar uma pull request.
[](https://github.com/HashLoad/ormbr/issues)
Para enviar uma pull request, siga estas etapas:
1. Faça um fork do projeto
2. Crie uma nova branch (`git checkout -b minha-nova-funcionalidade`)
3. Faça suas alterações e commit (`git commit -am 'Adicionando nova funcionalidade'`)
4. Faça push da branch (`git push origin minha-nova-funcionalidade`)
5. Abra uma pull request
## 📬 Contato
[](https://t.me/hashload)
## 💲 Doação
[](https://pag.ae/bglQrWD)