fix: no locale influence and no scientific notation in JSON reformatter

ansgarbecker · ansgarbecker · commit 825447f472a0 · 2025-12-30T15:54:30.000+01:00
diff --git a/source/generic_types.pas b/source/generic_types.pas
@@ -4,9 +4,16 @@
 
 interface
 
+uses fpjson, jsonparser, SysUtils;
+
 type
   TThreeStateBoolean = (nbUnset, nbFalse, nbTrue);
 
+  TJSONFloatNumberUntouched = class(TJSONFloatNumber)
+  public
+    function GetAsString: TJSONStringType; override;
+  end;
+
   TFileExtImageIndex = record
     Ext: String;
     ImageIndex: Integer;
@@ -50,4 +57,28 @@ function GetFileExtImageIndex(Ext: String): Integer;
   end;
 end;
 
+{ TJSONFloatNumberUntouched }
+
+function TJSONFloatNumberUntouched.GetAsString: TJSONStringType;
+var
+  Val: TJSONFloat;
+  fs: TFormatSettings;
+begin
+  fs := DefaultFormatSettings;
+  fs.DecimalSeparator := '.';
+  Val := GetAsFloat;
+  Result := FloatToStrF(Val, ffFixed, 18, 18, fs);
+
+  // Trim trailing zeros after the decimal point
+  while (Length(Result) > 0) and (Result[High(Result)] = '0') do
+    Delete(Result, High(Result), 1);
+  // Remove trailing decimal separator if no fractional digits left
+  if (Length(Result) > 0) and (Result[High(Result)] = fs.DecimalSeparator) then
+    Delete(Result, High(Result), 1);
+end;
+
+initialization
+
+SetJSONInstanceType(jitNumberFloat, TJSONFloatNumberUntouched);
+
 end.
diff --git a/source/texteditor.pas b/source/texteditor.pas
@@ -10,7 +10,7 @@ interface
   apphelpers, ActnList, extra_controls,
   ExtCtrls, dbconnection, SynEdit, SynEditHighlighter, customize_highlighter,
   Laz2_DOM, Laz2_XMLRead, Laz2_XMLWrite,
-  reformatter, jsonparser, extfiledialog,
+  reformatter, jsonparser, extfiledialog, generic_types,
 
   SynHighlighterBat,
   SynHighlighterCpp, SynHighlighterCss,
