* Partial 45708, needed for subsequent fpjson

git-svn-id: branches/fixes_3_2@46634 -

packages/fcl-json/src/fpjson.pp

@@ -1048,7 +1048,7 @@ begin
     TJSONData.DoError(SErrNoParserHandler)
   else
     begin
-    Setlength(S,JSON.Size);
+    Setlength(S{%H-},JSON.Size);
     if Length(S)>0 then
       JSON.ReadBuffer(S[1],Length(S));
     end;