fcl-json: clean up

packages/fcl-json/src/fpjson.pp

@@ -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;