Fix crash caused by null value set as a nested record. (#750)

danieleteti · May 1, 2024 · d0c3414 · d0c3414
1 parent 91a019c
commit d0c3414
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/sources/MVCFramework.Serializer.JsonDataObjects.pas b/sources/MVCFramework.Serializer.JsonDataObjects.pas
@@ -1803,6 +1803,9 @@ procedure TMVCJsonDataObjectsSerializer.JSONObjectPropertyToTValueForRecord(AJSO
 
 begin
   lChildObject := nil;
+  if AJSONObject = nil then
+    Exit;
+
   case AJSONObject[APropertyName].Typ of
     jdtNone:
       Exit;