Better using TJSONBool than TJSONTrue, TJSONFalse (thanks to bm-q)

paolo-rossi · Aug 29, 2022 · afbcd66 · afbcd66
1 parent f364aa6
commit afbcd66
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/Source/Neon.Core.Persistence.JSON.pas b/Source/Neon.Core.Persistence.JSON.pas
@@ -1374,10 +1374,8 @@ function TNeonDeserializerJSON.ReadEnum(const AParam: TNeonDeserializerParam): T
 begin
   if AParam.RttiType.Handle = System.TypeInfo(Boolean) then
   begin
-    if AParam.JSONValue is TJSONTrue then
-      Result := True
-    else if AParam.JSONValue is TJSONFalse then
-      Result := False
+    if AParam.JSONValue is TJSONBool then
+      Result := (AParam.JSONValue as TJSONBool).AsBoolean
     else
       raise ENeonException.Create('Invalid JSON value. Boolean expected');
   end