Opção de definir uma api default

Author: juliosenha

samples/main.pas

@@ -26,7 +26,7 @@ implementation
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
-  var LCEP := TEvoInCEP.New.Get(Edit1.Text);
+  var LCEP := TEvoInCEP.New(TAPIDefault.ViaCep).Get(Edit1.Text);
 
   Memo1.Clear;
   Memo1.Lines.Add('CEP: ' + LCEP.CEP);

src/EvoInCEP.pas

@@ -5,56 +5,94 @@ interface
 uses EvoinCEP.Intf;
 
 type
+{$SCOPEDENUMS ON}
+  TAPIDefault = (All, ViaCep, BrasilAPI, OpenCEP, BrasilAberto);
+{$SCOPEDENUMS OFF}
+
   TEvoInCEP = class(TInterfacedObject, ICEPRequest)
   private
+    FAPIDefault: TAPIDefault;
     function Get(const AValue: string): ICEPResponse;
     function OnlyNumbers(const AValue: string): string;
+    function GetAll(const AValue: string): ICEPResponse;
+    function GetViaCep(const AValue: string): ICEPResponse;
+    function GetBrasilApi(const AValue: string): ICEPResponse;
+    function GetOpenCep(const AValue: string): ICEPResponse;
+    function GetBrasilAberto(const AValue: string): ICEPResponse;
+    function MakeRequest(const AAPIDefault: TAPIDefault): Boolean;
   public
-    class function New: ICEPRequest;
+    class function New(const AAPIDefault: TAPIDefault = TAPIDefault.All): ICEPRequest;
+    constructor Create(const AAPIDefault: TAPIDefault); overload;
   end;
 
 implementation
 
 uses System.Threading, System.SysUtils, System.Generics.Collections, EvoInCEP.ViaCEP, EvoinCEP.BrasilAPI, EvoinCEP.OpenCEP,
   EvoinCEP.BrasilAberto;
 
+
+constructor TEvoInCEP.Create(const AAPIDefault: TAPIDefault);
+begin
+  FAPIDefault := AAPIDefault;
+end;
+
 function TEvoInCEP.Get(const AValue: string): ICEPResponse;
 var
   LCEP: string;
-  LList: TList<ITask>;
 begin
   LCEP := OnlyNumbers(AValue).PadLeft(8, '0');
+  case FAPIDefault of
+    TAPIDefault.ViaCep:
+      Result := GetViaCep(LCEP);
+    TAPIDefault.BrasilAPI:
+      Result := GetBrasilApi(LCEP);
+    TAPIDefault.OpenCEP:
+      Result := GetOpenCep(LCEP);
+    TAPIDefault.BrasilAberto:
+      Result := GetBrasilAberto(LCEP);
+    else
+      Result := GetAll(LCEP);
+  end;
+end;
 
+function TEvoInCEP.GetAll(const AValue: string): ICEPResponse;
+var
+  LList: TList<ITask>;
+begin
   LList := TList<ITask>.Create;
   try
-    LList.Add(TTask.Future<ICEPResponse>(
-      function: ICEPResponse
-      begin
-        Result := TViaCEP.New.Get(LCEP);
-        if not Assigned(Result) then
-          raise Exception.Create('Internal server error.');
-      end));
+    if MakeRequest(TAPIDefault.ViaCep) then
+      LList.Add(TTask.Future<ICEPResponse>(
+        function: ICEPResponse
+        begin
+          Result := TViaCEP.New.Get(AValue);
+          if not Assigned(Result) then
+            raise Exception.Create('Internal server error.');
+        end));
 
+    if MakeRequest(TAPIDefault.BrasilAPI) then
     LList.Add(TTask.Future<ICEPResponse>(
       function: ICEPResponse
       begin
-        Result := TBrasilAPI.New.Get(LCEP);
+        Result := TBrasilAPI.New.Get(AValue);
         if not Assigned(Result) then
           raise Exception.Create('Internal server error.');
       end));
 
+    if MakeRequest(TAPIDefault.BrasilAberto) then
     LList.Add(TTask.Future<ICEPResponse>(
       function: ICEPResponse
       begin
-        Result := TBrasilAberto.New.Get(LCEP);
+        Result := TBrasilAberto.New.Get(AValue);
         if not Assigned(Result) then
           raise Exception.Create('Internal server error.');
       end));
 
+   if MakeRequest(TAPIDefault.OpenCEP) then
     LList.Add(TTask.Future<ICEPResponse>(
       function: ICEPResponse
       begin
-        Result := TOpenCEP.New.Get(LCEP);
+        Result := TOpenCEP.New.Get(AValue);
         if not Assigned(Result) then
           raise Exception.Create('Internal server error.');
       end));
@@ -74,9 +112,42 @@ function TEvoInCEP.Get(const AValue: string): ICEPResponse;
   end;
 end;
 
-class function TEvoInCEP.New: ICEPRequest;
+function TEvoInCEP.GetBrasilAberto(const AValue: string): ICEPResponse;
+begin
+  Result := TBrasilAberto.New.Get(AValue);
+  if not Assigned(Result) then
+    Result := GetAll(AValue);
+end;
+
+function TEvoInCEP.GetBrasilApi(const AValue: string): ICEPResponse;
+begin
+  Result := TBrasilAPI.New.Get(AValue);
+  if not Assigned(Result) then
+    Result := GetAll(AValue);
+end;
+
+function TEvoInCEP.GetOpenCep(const AValue: string): ICEPResponse;
+begin
+  Result := TOpenCEP.New.Get(AValue);
+  if not Assigned(Result) then
+    Result := GetAll(AValue);
+end;
+
+function TEvoInCEP.GetViaCep(const AValue: string): ICEPResponse;
+begin
+  Result := TViaCEP.New.Get(AValue);
+  if not Assigned(Result) then
+    Result := GetAll(AValue);
+end;
+
+function TEvoInCEP.MakeRequest(const AAPIDefault: TAPIDefault): Boolean;
+begin
+  Result := ((FAPIDefault = TAPIDefault.All) or (FAPIDefault <> AAPIDefault));
+end;
+
+class function TEvoInCEP.New(const AAPIDefault: TAPIDefault): ICEPRequest;
 begin
-  Result := Self.Create;
+  Result := Self.Create(AAPIDefault);
 end;
 
 function TEvoInCEP.OnlyNumbers(const AValue: string): string;