Samples Cleaning

danieleteti · Nov 1, 2023 · 6590e50 · 6590e50
1 parent ca28352
commit 6590e50
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 12 deletions.
diff --git a/samples/activerecord_showcase/EntitiesU.pas b/samples/activerecord_showcase/EntitiesU.pas
@@ -422,7 +422,7 @@   TCustomerEx = class(TCustomer)
     'FROM CUSTOMERS c WHERE city IS NOT NULL AND city <> '''' ORDER BY customers_in_the_same_city')]
   TCustomerStats = class(TCustomEntity)
   private
-    [MVCTableField('id', [foPrimaryKey, foAutoGenerated])]
+    [MVCTableField('id')]
     fID: NullableInt64;
     [MVCTableField('code')]
     fCode: NullableString;

diff --git a/samples/functional_actions_showcase/ControllerU.pas b/samples/functional_actions_showcase/ControllerU.pas
@@ -4,7 +4,7 @@ interface
 
 uses
   MVCFramework, MVCFramework.Commons, MVCFramework.Serializer.Commons,
-  System.Generics.Collections, Data.DB, JsonDataObjects;
+  System.Generics.Collections, Data.DB, JsonDataObjects, System.Rtti;
 
 type
   [MVCNameCase(ncCamelCase)]
@@ -51,8 +51,6 @@   TMyController = class(TMVCController)
     [MVCPath('/objects/jsonarray')]
     function GetJSONArray: TJsonArray;
 
-
-
     { actions returning datasets }
     [MVCPath('/datasets/single')]
     function GetSingleDataSet: TDataSet;
@@ -78,8 +76,6 @@   TMyController = class(TMVCController)
     function GetMVCResponseWithObjectList: IMVCResponse;
     [MVCPath('/mvcresponse/dictionary')]
     function GetMVCResponseWithObjectDictionary: IMVCResponse;
-    [MVCPath('/mvcresponse/error')]
-    function GetMVCErrorResponse: IMVCResponse;
     [MVCPath('/mvcresponse/message/builder/headers')]
     function GetMVCResponseSimpleBuilderWithHeaders: IMVCResponse;
   end;
@@ -163,11 +159,6 @@ function TMyController.GetMultipleRecords: TArray<TPersonRec>;
   Inc(Result[2].Age, 20);
 end;
 
-function TMyController.GetMVCErrorResponse: IMVCResponse;
-begin
-  Result := TMVCErrorResponse.Create(500, 'boom');
-end;
-
 function TMyController.GetMVCResponseSimple: IMVCResponse;
 begin
   Result := MVCResponseBuilder

diff --git a/samples/serversideviews_mustache/WebModuleU.pas b/samples/serversideviews_mustache/WebModuleU.pas
@@ -58,7 +58,7 @@ procedure TWebModule1.WebModuleCreate(Sender: TObject);
     end)
     .AddController(TWebSiteController)
     .SetViewEngine(TMVCMustacheViewEngine)
-    .AddSerializer(TMVCMediaType.APPLICATION_FORM_URLENCODED, TMVCURLEncodedDataSerializer.Create);
+    .AddSerializer(TMVCMediaType.APPLICATION_FORM_URLENCODED, TMVCURLEncodedSerializer.Create);
 end;
 
 procedure TWebModule1.WebModuleDestroy(Sender: TObject);