paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #28506

Browse Source 
git-svn-id: trunk@31436 -
This commit is contained in:
michael 2015-08-28 09:33:56 +00:00
parent 7c5ce9efc6
commit 90a31bef49
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-json/src/jsonconf.pp
View File

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