Delphi 12 - System.JSON.FloatToJson - verschlimmbessert - Workaround?

[lxo]

Hallo,

mir ist aufgefallen das ich sporadisch eine Exception bekommen wenn ich Rest.JSON.pas TJson.ObjectToJsonString verwende.
Ursache, in Delphi 12 wurde die System.JSON.FloatToJson Funktion angepasst.

Angepasst wurde diese vermutlich aufgrund des Tickets: https://quality.embarcadero.com/browse/RSP-38387
Dabei wurde aber nicht beachtet das ein Float auch 1E-8, INF oder NAN sein kann.
Durch die Änderung wird am Ende einfach .0 hinzugefügt wenn kein . gefunden wird.
https://quality.embarcadero.com/browse/RSP-43463

Ist das bereits jemandem aufgefallen und hat jemand dafür evtl. ein passendes Workaround?