paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-17 05:49:05 +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 begin
If FOwnsData then If FOwnsData then
begin begin
FreeAndNil(FRows); FRows:=Nil
FreeAndNil(FMetaData); FMetaData:=Nil;
end; end;
if (FCurrentList<>FDefaultList) then if (FCurrentList<>FDefaultList) then
FreeAndNil(FCurrentList) FreeAndNil(FCurrentList)