Update ObjectsMappers.pas

academiadocodigo · Oct 26, 2024 · eedd012 · eedd012
1 parent dc1e022
commit eedd012
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ObjectsMappers.pas b/src/ObjectsMappers.pas
@@ -1187,7 +1187,7 @@ class function Mapper.ObjectToJSONObject(AObject: TObject; AIgnoredProperties: a
               tm := Round(TimeStampToMsecs(ts));
               JSONObject.AddPair(f, TJSONNumber.Create(tm));
             {$ELSE}
-              JSONObject.AddPair(f, TJSONNumber.Create(TimeStampToMsecs(ts)));
+              JSONObject.AddPair(f, TJSONNumber.Create(Double(TimeStampToMsecs(ts))));
             {$ENDIF}            
           end;
         end;