From 3acf0285aa5fa1d9a23b6873a4aeb4d1c004a3cc Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 6 Aug 2015 13:09:40 +0000
Subject: [PATCH] * Allow comments in JSON config file

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

diff --git a/packages/fcl-json/src/jsonconf.pp b/packages/fcl-json/src/jsonconf.pp
index 68a57309d8..caf3e61f68 100644
--- a/packages/fcl-json/src/jsonconf.pp
+++ b/packages/fcl-json/src/jsonconf.pp
@@ -28,7 +28,7 @@ unit jsonConf;
 interface
 
 uses
-  SysUtils, Classes, fpjson, jsonparser;
+  SysUtils, Classes, fpjson, jsonscanner,jsonparser;
 
 resourcestring
   SWrongRootName = 'XML file has wrong root element name';
@@ -596,7 +596,7 @@ begin
     begin
     F:=TFileStream.Create(AFileName,fmopenRead);
     try
-      P:=TJSONParser.Create(F);
+      P:=TJSONParser.Create(F,[joUTF8,joComments]);
       try
         J:=P.Parse;
         If (J is TJSONObject) then