paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-22 12:09:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Metadata and rows are raw JSON object, freeandnil will not work

Browse Source
This commit is contained in:
michael 2018-01-20 14:10:43 +00:00
parent 6f51b33077
commit f13f7c6167
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/jsondataset.pas
View File

@ -374,8 +374,8 @@ procedure TBaseJSONDataSet.FreeData;
begin
If FOwnsData then
begin
FreeAndNil(FRows);
FreeAndNil(FMetaData);
FRows:=Nil
FMetaData:=Nil;
end;
if (FCurrentList<>FDefaultList) then
FreeAndNil(FCurrentList)