* Merging revisions r45264 from trunk:

    ------------------------------------------------------------------------
    r45264 | michael | 2020-05-05 11:52:02 +0200 (Tue, 05 May 2020) | 1 line
    
    * CeateArray uses 0-based loop
    ------------------------------------------------------------------------

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

packages/fcl-json/src/fpjsontopas.pp

@@ -743,7 +743,7 @@ begin
   AddLn('');
   AddLn('begin');
   Indent;
-  AddLn('For I:=0 to Length(anArray) do');
+  AddLn('For I:=0 to Length(anArray)-1 do');
   Indent;
   if IM.JSONType=jtObject then
     AddLn('FreeAndNil(anArray[I]);')