add: custom repository for a sample

Author: danieleteti

samples/repository_showcase/MainFormU.pas

@@ -345,36 +345,33 @@ procedure TMainForm.btnNamedQueriesClick(Sender: TObject);
 
 procedure TMainForm.btnCustomMethodsClick(Sender: TObject);
 var
-  lRepo: TCustomerRepository;
+  lRepo: ICustomerRepository;
   lCustomers: TObjectList<TCustomer>;
   lCustomer: TCustomer;
 begin
   Log('');
   Log('** Custom Repository Methods');
 
   lRepo := TCustomerRepository.Create;
+
+  // Custom method: GetCustomersByCity
+  lCustomers := lRepo.GetCustomersByCity('London');
   try
-    // Custom method: GetCustomersByCity
-    lCustomers := lRepo.GetCustomersByCity('London');
-    try
-      Log(Format('GetCustomersByCity("London") returned %d customers', [lCustomers.Count]));
-      for lCustomer in lCustomers do
-        Log('  ' + lCustomer.ToString);
-    finally
-      lCustomers.Free;
-    end;
+    Log(Format('GetCustomersByCity("London") returned %d customers', [lCustomers.Count]));
+    for lCustomer in lCustomers do
+      Log('  ' + lCustomer.ToString);
+  finally
+    lCustomers.Free;
+  end;
 
-    // Custom method: GetTopRatedCustomers
-    lCustomers := lRepo.GetTopRatedCustomers;
-    try
-      Log(Format('GetTopRatedCustomers returned %d customers', [lCustomers.Count]));
-      for lCustomer in lCustomers do
-        Log('  ' + lCustomer.ToString);
-    finally
-      lCustomers.Free;
-    end;
+  // Custom method: GetTopRatedCustomers
+  lCustomers := lRepo.GetTopRatedCustomers;
+  try
+    Log(Format('GetTopRatedCustomers returned %d customers', [lCustomers.Count]));
+    for lCustomer in lCustomers do
+      Log('  ' + lCustomer.ToString);
   finally
-    lRepo.Free;
+    lCustomers.Free;
   end;
 end;
 

samples/repository_showcase/RepositoriesU.pas

@@ -36,7 +36,14 @@ interface
   /// Customer Repository - uses default implementation
   /// Can be injected as IMVCRepository<TCustomer> in controllers
   /// </summary>
-  TCustomerRepository = class(TMVCRepository<TCustomer>)
+
+  ICustomerRepository = interface(IMVCRepository<TCustomer>)
+    ['{969BC9CE-E30E-4104-8F74-CE2A7C18AD21}']
+    function GetCustomersByCity(const City: string): TObjectList<TCustomer>;
+    function GetTopRatedCustomers: TObjectList<TCustomer>;
+  end;
+
+  TCustomerRepository = class(TMVCRepository<TCustomer>, ICustomerRepository)
   public
     // Add custom methods here if needed
     function GetCustomersByCity(const City: string): TObjectList<TCustomer>;

samples/simple_api_using_repository_with_injection/CustomersControllerU.pas

@@ -67,8 +67,9 @@ function TCustomersController.CreateCustomer(const Customer: TCustomer; Customer
 end;
 
 function TCustomersController.DeleteCustomerByID(const ID: Integer;
-  CustomersRepository: IMVCRepository<TCustomer>): IMVCResponse;
+    CustomersRepository: IMVCRepository<TCustomer>): IMVCResponse;
 begin
+  //Automatic transaction handling
   var lTx := TMVCRepository.UseTransactionContext;
   var lCustomer := CustomersRepository.GetByPK(ID);
   CustomersRepository.Delete(lCustomer);