From 90a31bef49e5e152aaa8d69773e43d1b117243f6 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 28 Aug 2015 09:33:56 +0000
Subject: [PATCH] * Fix bug #28506

git-svn-id: trunk@31436 -
---
 packages/fcl-json/src/jsonconf.pp | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/packages/fcl-json/src/jsonconf.pp b/packages/fcl-json/src/jsonconf.pp
index 3b6e57691b..b0b9e2eb26 100644
--- a/packages/fcl-json/src/jsonconf.pp
+++ b/packages/fcl-json/src/jsonconf.pp
@@ -30,12 +30,9 @@ interface
 uses
   SysUtils, Classes, fpjson, jsonscanner,jsonparser;
 
-resourcestring
-  SWrongRootName = 'XML file has wrong root element name';
 
 type
   EJSONConfigError = class(Exception);
-  TPathFlags = set of (pfHasValue, pfWriteAccess);
 
 (* ********************************************************************
    "APath" is the path and name of a value: A JSON configuration file 
@@ -119,7 +116,7 @@ type
 
 implementation
 
-Const
+Resourcestring
   SErrInvalidJSONFile = '"%s" is not a valid JSON configuration file.';
   SErrCouldNotOpenKey = 'Could not open key "%s".';