https://github.com/danieleteti/delphimvcframework/issues/795

danieleteti · Dec 18, 2024 · 38eec9e · 38eec9e
1 parent 9e19652
commit 38eec9e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/sources/JsonDataObjects.pas b/sources/JsonDataObjects.pas
@@ -2702,7 +2702,7 @@ function DoubleToText(Buffer: PChar; const Value: Extended): Integer; {inline;}
   // Add the decimal separator if FloatToText didn't add it, so that the data type of
   // the property doesn't change to Integer/Int64 if it is read again.
   for I := Result - 1 downto 0 do
-    if Buffer[I] = '.' then
+    if Buffer[I] in ['.', 'E', 'e'] then
       Exit;
   Buffer[Result] := '.';
   Buffer[Result + 1] := '0';