Merge pull request #220 from fernandofcarneiro/master

Bug Delphi 10.2: E2362 Cannot access protected symbol TJSONObject.FindValue
viniciussanchez · Dec 19, 2023 · 7c8fb82 · 7c8fb82
2 parents 835b7e3 + 8557c79
commit 7c8fb82
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/src/DataSet.Serialize.pas b/src/DataSet.Serialize.pas
@@ -363,8 +363,13 @@ procedure TDataSetSerializeHelper.LoadFromJSON(const AJSONObject: TJSONObject; c
       {$IF DEFINED(FPC)}
       LJSON := AJSONObject.Find(ARootElement);
       {$ELSE}
-      LJSON := AJSONObject.FindValue(ARootElement);
-      {$ENDIF}
+        {$IF COMPILERVERSION <= 32}
+          if not AJSONObject.TryGetValue<TJSONValue>(ARootElement,LJSON) then
+            LJSON := nil;
+        {$ELSE}
+          LJSON := AJSONObject.FindValue(ARootElement);
+        {$IFEND}
+      {$ENDIF}	  
       if not Assigned(LJSON) then
         raise Exception.Create('Root element not found!');
       if LJSON.InheritsFrom(TJSONArray) then