Ignore indexed properties when stringifying + update test

EricGrange · Jan 25, 2022 · 17f4bff · 17f4bff
1 parent 55eca20
commit 17f4bff
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/Source/dwsJSONScript.pas b/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;

diff --git a/Test/JSONConnectorPass/stringify_class_getter.pas b/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;