* Fixed memory leak. Patch by Inoussa OUEDRAOGO

git-svn-id: trunk@9602 -

packages/fcl-json/src/jsonparser.pp

@@ -41,6 +41,7 @@ Type
     function Parse: TJSONData;
     Constructor Create(Source : TStream); overload;
     Constructor Create(Source : TJSONStringType); overload;
+    destructor Destroy();override;
   end;
   
   EJSONScanner = Class(Exception);
@@ -245,5 +246,11 @@ begin
   FScanner:=TJSONScanner.Create(Source);
 end;
 
+destructor TJSONParser.Destroy();
+begin
+  FreeAndNil(FScanner);
+  inherited Destroy();
+end;
+
 end.