Ignore indexed properties when stringifying + update test

Author: EricGrange

Source/dwsJSONScript.pas

@@ -334,7 +334,9 @@ class procedure JSONScript.StringifyComposite(exec : TdwsExecution;
       for i:=0 to compSym.Members.Count-1 do begin
          sym:=compSym.Members[i];
          if sym.ClassType=TPropertySymbol then begin
-            propSym:=TPropertySymbol(sym);
+            propSym := TPropertySymbol(sym);
+            if propSym.HasArrayIndices then
+               continue;
             if (propSym.Visibility>=cvPublished) and (propSym.ReadSym<>nil) then
                sym:=propSym.ReadSym
             else continue;

Test/JSONConnectorPass/stringify_class_getter.pas

@@ -22,6 +22,7 @@    TTest = class
          property Num : Float read (3.14);
          property Arr : array of String read (StrSplit('abc,de', ','));
          property Sub : TSubTest;
+		 property Indexed[i : Integer] : String read (i.ToString);
    end;
 
 var i := new TTest;