Changed functions TJSONValue.AsType<T> and TValue.Make<T> to bring ba…

…ck compatibility for Delphi 10.4 and earlier. Fixes #47 #48
paolo-rossi · Jul 6, 2022 · 0b9c1f7 · 0b9c1f7
1 parent 4e145bd
commit 0b9c1f7
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Source/Neon.Core.Persistence.JSON.pas b/Source/Neon.Core.Persistence.JSON.pas
@@ -1516,7 +1516,7 @@ function TNeonDeserializerJSON.ReadFloat(const AParam: TNeonDeserializerParam):
     end;
 
     try
-      LFloat := (AParam.JSONValue as TJSONNumber).AsType<Extended>;
+      LFloat := (AParam.JSONValue as TJSONNumber).GetValue<Extended>;
     except
       on E: EOverflow do
         raise ENeonException.CreateFmt('The value [%s] is outside the range for the type [%s]', [AParam.JSONValue.Value, LMsg]);
@@ -1546,7 +1546,7 @@ function TNeonDeserializerJSON.ReadInt64(const AParam: TNeonDeserializerParam):
   else
   begin
     LUInt := StrToUInt64(AParam.JSONValue.Value);
-    TValue.Make<UInt64>(LUInt, Result);
+    TValue.Make(@LUInt, System.TypeInfo(UInt64), Result);
   end;
 end;