* Fix memory leak (patch by Marcos Douglas, ID #21900)

git-svn-id: trunk@21149 -

packages/fcl-db/src/json/fpjsondataset.pp

@@ -372,6 +372,7 @@ begin
   else
     FCurrentList:=Nil;
   FreeAndNil(FDefaultList);
+  FreeAndNil(FFieldMapper);
   FCurrentList:=Nil;
 end;
 
@@ -819,6 +820,7 @@ end;
 
 procedure TBaseJSONDataSet.InternalOpen;
 begin
+  FreeAndNil(FFieldMapper);
   FFieldMapper:=CreateFieldMapper;
   IF (FRows=Nil) then // opening from fielddefs ?
     begin