Fix wrong rounding from Float to Integer in CreateJsonForBoldAttribute …

…#23
Embarcadero · Dec 7, 2024 · cabfd3b · cabfd3b
1 parent 45e848b
commit cabfd3b
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/Source/BoldObjectRepresentationJson.pas b/Source/BoldObjectRepresentationJson.pas
@@ -536,8 +536,13 @@ function TBoldElementJsonConverter.CreateJsonForBoldAttribute(aBoldAttribute: TB
   end
   else if (aBoldAttribute is TBANumeric) then
   begin
-    vInt := vMemberValueAsVariant;
-    Result := TJSONNumber.Create(vInt);
+    if (aBoldAttribute is TBAFloat) or  (aBoldAttribute is TBACurrency) then
+      Result := TJSONNumber.Create(TBANumeric(aBoldAttribute).AsFloat)
+    else
+    begin
+      vInt := vMemberValueAsVariant;
+      Result := TJSONNumber.Create(vInt);
+    end;
   end
   else if aBoldAttribute is TBABoolean then
   begin