paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 17:10:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-json: clean up

Browse Source
This commit is contained in:
mattias 2025-07-22 13:20:18 +02:00
parent f1f28e35e1
commit 5bf63265aa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-json/src/fpjson.pp
View File

@ -1740,6 +1740,7 @@ end;
procedure TJSONData.DoFormatJSON(var Ctx: TFormatJSONContext; CurrentIndent : SizeInt);
begin
if CurrentIndent=0 then ;
Ctx.Append(AsJSON);
end;
@ -2252,10 +2253,9 @@ begin
Ctx.Append(TJSONStringType(FloatToStr(FValue,JSONFormatSettings)))
else
Ctx.Append(AsJSON);
if CurrentIndent=0 then ;
end;
constructor TJSONFloatNumber.Create(AValue: TJSONFloat);
begin
FValue:=AValue;