paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 01:30:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

- Refix changes overwritten by Mattias

Browse Source 
git-svn-id: trunk@41319 -
This commit is contained in:
michael 2019-02-15 11:16:34 +00:00
parent fe47db32be
commit 17b993636c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-json/src/fpjsonrtti.pp
View File

@ -777,7 +777,7 @@ begin
else If AObject is TObjectList then
Result.Add('Objects',StreamObjectList(TObjectList(AObject)))
else if (jsoStreamTlist in Options) and (AObject is TList) then
Result := TJSONObject(StreamTList(TList(AObject)))
Result.Add('Objects', StreamTList(TList(AObject)))
else
begin
PIL:=TPropInfoList.Create(AObject,tkProperties);