paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 06:08:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix wrong typecast, fix warning when compiling

Browse Source 
git-svn-id: trunk@41162 -
This commit is contained in:
michael 2019-02-02 09:02:57 +00:00
parent 0db9ff5c39
commit 85f1b78162
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,7 +5,7 @@ unit fpjsonrtti;
interface
uses
Classes, SysUtils, contnrs, typinfo, fpjson, rttiutils, jsonparser;
Classes, SysUtils, contnrs, jsonscanner, typinfo, fpjson, rttiutils, jsonparser;
Const
RFC3339DateTimeFormat = 'yyyy"-"mm"-"dd"T"hh":"nn":"ss';
@ -68,6 +68,7 @@ Type
// If AObject is of type TStrings or TCollection, special treatment occurs:
// TStrings results in { Strings: [S,S,S] } or { Strings: { "S1" : O1, "S2" : O2 }} depending on Options.
// Collection results in { Items: [I,I,I] }
// Tlist/TObjectlist results in { "Objects": [O1,O2,O3] }
Function ObjectToJSON(Const AObject : TObject) : TJSONObject;
// Stream a collection - always returns an array
function StreamCollection(Const ACollection: TCollection): TJSONArray;
@ -217,7 +218,7 @@ Type
function TJSONDeStreamer.ObjectFromString(const JSON: TJSONStringType): TJSONData;
begin
With TJSONParser.Create(JSON) do
With TJSONParser.Create(JSON,[joUTF8]) do
try
Result:=Parse;
finally
@ -777,7 +778,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);