From d0c3414a5eeb3aa2ab04d8fac426dee208483dd1 Mon Sep 17 00:00:00 2001
From: rjantz2 <73662257+rjantz2@users.noreply.github.com>
Date: Wed, 1 May 2024 05:03:49 -0400
Subject: [PATCH] Fix crash caused by null value set as a nested record. (#750)

---
 sources/MVCFramework.Serializer.JsonDataObjects.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/sources/MVCFramework.Serializer.JsonDataObjects.pas b/sources/MVCFramework.Serializer.JsonDataObjects.pas
index 27afe46a..dfa6aee1 100644
--- 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;