Browse Source

* Fix for bug ID #24603 (initialize result of TJSONObject.DoFormatJSON)

git-svn-id: trunk@24905 -
michael 12 years ago
parent
commit
7e72f856ce
1 changed files with 1 additions and 0 deletions
  1. 1 0
      packages/fcl-json/src/fpjson.pp

+ 1 - 0
packages/fcl-json/src/fpjson.pp

@@ -1920,6 +1920,7 @@ Var
 
 
 
 
 begin
 begin
+  Result:='';
   CurrentIndent:=CurrentIndent+Indent;  
   CurrentIndent:=CurrentIndent+Indent;  
   For I:=0 to Count-1 do
   For I:=0 to Count-1 do
     begin
     begin