--- Merging r24905 into '.':

U    packages/fcl-json/src/fpjson.pp

# revisions: 24905
r24905 | michael | 2013-06-15 18:14:35 +0200 (Sat, 15 Jun 2013) | 1 line
Changed paths:
   M /trunk/packages/fcl-json/src/fpjson.pp

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

git-svn-id: branches/fixes_2_6@25220 -

packages/fcl-json/src/fpjson.pp

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