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

* Add possibility to specify JSON options

Browse Source 
git-svn-id: trunk@33124 -
This commit is contained in:
michael 2016-02-27 09:13:31 +00:00
parent 5576caada6
commit 532bf25233
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -30,6 +30,8 @@ interface
uses
SysUtils, Classes, fpjson, jsonscanner, jsonparser;
Const
DefaultJSONOptions = [joUTF8,joComments];
type
EJSONConfigError = class(Exception);
@ -57,9 +59,11 @@ type
FFormatIndentSize: Integer;
FFormatoptions: TFormatOptions;
FFormatted: Boolean;
FJSONOptions: TJSONOptions;
FKey: TJSONObject;
procedure DoSetFilename(const AFilename: String; ForceReload: Boolean);
procedure SetFilename(const AFilename: String);
procedure SetJSONOptions(AValue: TJSONOptions);
Function StripSlash(Const P : UnicodeString) : UnicodeString;
protected
FJSON: TJSONObject;
@ -109,6 +113,7 @@ type
Property Formatted : Boolean Read FFormatted Write FFormatted;
Property FormatOptions : TFormatOptions Read FFormatoptions Write FFormatOptions Default DefaultFormat;
Property FormatIndentsize : Integer Read FFormatIndentSize Write FFormatIndentSize Default DefaultIndentSize;
Property JSONOptions : TJSONOptions Read FJSONOptions Write SetJSONOptions Default DefaultJSONOptions;
end;
@ -127,6 +132,7 @@ begin
FKey:=FJSON;
FFormatOptions:=DefaultFormat;
FFormatIndentsize:=DefaultIndentSize;
FJSONOptions:=DefaultJSONOptions;
end;
destructor TJSONConfig.Destroy;
@ -687,7 +693,7 @@ begin
begin
F:=TFileStream.Create(AFileName,fmopenRead);
try
P:=TJSONParser.Create(F,[joUTF8,joComments]);
P:=TJSONParser.Create(F,FJSONOptions);
try
J:=P.Parse;
If (J is TJSONObject) then
@ -712,6 +718,16 @@ begin
DoSetFilename(AFilename, False);
end;
procedure TJSONConfig.SetJSONOptions(AValue: TJSONOptions);
begin
if FJSONOptions=AValue then Exit;
FJSONOptions:=AValue;
if csLoading in ComponentState then
exit;
if (FFileName<>'') then
Reload;
end;
function TJSONConfig.StripSlash(const P: UnicodeString): UnicodeString;
Var