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

* Fix bug #33388, name is lost when doing loadfromjson

Browse Source 
git-svn-id: trunk@38464 -
This commit is contained in:
michael 2018-03-09 08:39:46 +00:00
parent 08c0239d1e
commit c1f8a15e32
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-report/src/fpjsonreport.pp
View File

@ -113,14 +113,17 @@ procedure TFPJSONReport.LoadFromJSON(aJSON: TJSONObject);
Var
R : TFPReportJSONStreamer;
N : String;
begin
N:=Name;
R:=TFPReportJSONStreamer.Create(Nil);
try
R.OwnsJSON:=False;
R.JSON:=aJSON;
ReadElement(R);
finally
Name:=N;
R.Free;
end;
end;