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

* Fix formatted indent size

Browse Source 
git-svn-id: trunk@31272 -
This commit is contained in:
michael 2015-08-04 09:09:12 +00:00
parent a797c2fc46
commit 3b9edc840f
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-json/src/jsonconf.pp
View File

@ -149,6 +149,7 @@ procedure TJSONConfig.Flush;
Var Var
F : Text; F : Text;
S : TJSONStringType;
begin begin
if Modified then if Modified then
@ -157,9 +158,10 @@ begin
Rewrite(F); Rewrite(F);
Try Try
if Formatted then if Formatted then
Writeln(F,FJSON.FormatJSON(Formatoptions,DefaultIndentSize)) S:=FJSON.FormatJSON(Formatoptions,FormatIndentSize)
else else
Writeln(F,FJSON.AsJSON); S:=FJSON.AsJSON;
Writeln(F,S);
Finally Finally
CloseFile(F); CloseFile(F);
end; end;