* Made exceptions descendents of EParserError

git-svn-id: trunk@17610 -

packages/fcl-json/src/jsonparser.pp

@@ -48,7 +48,7 @@ Type
     Property Strict : Boolean Read FStrict Write SetStrict;
   end;
   
-  EJSONParser = Class(Exception);
+  EJSONParser = Class(EParserError);
   
 implementation
 

packages/fcl-json/src/jsonscanner.pp

@@ -46,7 +46,7 @@ type
     tkUnknown
     );
 
-  EScannerError       = class(Exception);
+  EScannerError       = class(EParserError);
 
 
   { TJSONScanner }