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

fcl-json: clean up

Browse Source
This commit is contained in:
mattias 2022-02-12 22:33:45 +01:00
parent 3b9035c946
commit b2251e3469
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-json/src/fpjson.pp
View File

@ -116,7 +116,7 @@ Type
class procedure SetCompressedJSON(AValue: Boolean); {$IFNDEF PAS2JS}static;{$ENDIF}
protected
Class Procedure DoError(Const Msg : String);
Class Procedure DoError(Const Fmt : String; const Args : Array of {$IFDEF PAS2JS}jsvalue{$else}Const{$ENDIF});
Class Procedure DoError(Const Fmt : String; const Args : Array of Const);
Function DoFindPath(Const APath : TJSONStringType; Out NotFound : TJSONStringType) : TJSONdata; virtual;
function GetAsBoolean: Boolean; virtual; abstract;
function GetAsFloat: TJSONFloat; virtual; abstract;
@ -1492,7 +1492,7 @@ begin
end;
class procedure TJSONData.DoError(const Fmt: String;
const Args: array of {$IFDEF PAS2JS}jsvalue{$else}Const{$ENDIF});
const Args: array of Const);
begin
Raise EJSON.CreateFmt(Fmt,Args);
end;