From 38eec9e2899a543ec5eb2f739225b222f1183cff Mon Sep 17 00:00:00 2001
From: Daniele Teti <d.teti@bittime.it>
Date: Wed, 18 Dec 2024 10:26:59 +0100
Subject: [PATCH] https://github.com/danieleteti/delphimvcframework/issues/795

---
 sources/JsonDataObjects.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sources/JsonDataObjects.pas b/sources/JsonDataObjects.pas
index 14108df8..6c404514 100644
--- 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';