From 3b9edc840f77e1ff02cb70e5e7b6d954628b76d2 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 4 Aug 2015 09:09:12 +0000
Subject: [PATCH] * Fix formatted indent size

git-svn-id: trunk@31272 -
---
 packages/fcl-json/src/jsonconf.pp | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/packages/fcl-json/src/jsonconf.pp b/packages/fcl-json/src/jsonconf.pp
index b9992f72e7..80d6c7f1e3 100644
--- a/packages/fcl-json/src/jsonconf.pp
+++ b/packages/fcl-json/src/jsonconf.pp
@@ -149,7 +149,8 @@ procedure TJSONConfig.Flush;
 
 Var
   F : Text;
-
+  S : TJSONStringType;
+  
 begin
   if Modified then
     begin
@@ -157,9 +158,10 @@ begin
     Rewrite(F);
     Try
       if Formatted then
-        Writeln(F,FJSON.FormatJSON(Formatoptions,DefaultIndentSize))
+        S:=FJSON.FormatJSON(Formatoptions,FormatIndentSize)
       else
-        Writeln(F,FJSON.AsJSON);
+        S:=FJSON.AsJSON;
+      Writeln(F,S);  
     Finally
       CloseFile(F);
     end;