Issue#802 (#803)

* Issue #546 was missing from the merge.

* #581 - Fix error on removing default connection;

* #583 - Fixes bugs 'Invalid class typecast' when using Active Record and Enumerated Type;

* Fixes rendering in Swagger documentation for TArray type fields.

* It also allows overriding the MapTValueToParam method of the TMVCActiveRecord class.

sources/MVCFramework.ActiveRecord.pas

@@ -309,7 +309,6 @@   TMVCActiveRecord = class
     fConn: TFDConnection;
     fSQLGenerator: TMVCSQLGenerator;
     fRQL2SQL: TRQL2SQL;
-    procedure MapTValueToParam(aValue: TValue; const aParam: TFDParam);
     function MapNullableTValueToParam(aValue: TValue; const aParam: TFDParam): Boolean;
     function GetPrimaryKeyIsAutogenerated: Boolean;
     procedure SetPrimaryKeyIsAutogenerated(const Value: Boolean);
@@ -324,6 +323,7 @@   TMVCActiveRecord = class
     function GetCustomTableName: String; virtual;
     function GetPartitionInfo: TPartitionInfo;
     function GetConnection: TFDConnection;
+    procedure MapTValueToParam(aValue: TValue; const aParam: TFDParam); virtual;
     procedure InitTableInfo(const aTableName: String);
     class function
       CreateQuery(const Unidirectional, DirectExecute: Boolean): TFDQuery;

sources/MVCFramework.Swagger.Commons.pas

@@ -637,8 +637,19 @@ class procedure TMVCSwagger.ExtractJsonSchemaFromClass(const aJsonFieldRoot: TJs
     begin
       lJsonFieldClass := GetJsonFieldClass(TypeKindToMVCSwagSchemaType(
         TRttiDynamicArrayType(lProp.PropertyType).ElementType));
+
       if Assigned(lJsonFieldClass) then
-        TJsonFieldArray(lJsonField).ItemFieldType := lJsonFieldClass.Create;
+      begin
+        if lJsonFieldClass.InheritsFrom(TJsonFieldObject) then
+        begin
+          lClass := TRttiDynamicArrayType(lProp.PropertyType).ElementType.AsInstance.MetaclassType;
+          lJsonFieldObject := TJsonFieldObject.Create;
+          ExtractJsonSchemaFromClass(lJsonFieldObject, lClass, aHTTPMethod, aIsResponseSchema);
+          TJsonFieldArray(lJsonField).ItemFieldType := lJsonFieldObject;
+        end
+        else
+          TJsonFieldArray(lJsonField).ItemFieldType := lJsonFieldClass.Create;
+      end;
     end
     else if lJsonField is TJsonFieldEnum then /// Extract enumerator information
     begin