paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-25 13:29:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compilation in unicode RTL

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-27 09:51:05 +01:00
parent a3134fcbfd
commit b6a0988559
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/vcl-compat/src/system.json.pp
View File

@ -754,7 +754,7 @@ end;
function TJSONValue.GetValueA(const aIndex: Integer): TJSONValue; function TJSONValue.GetValueA(const aIndex: Integer): TJSONValue;
begin begin
Result:=FindValue(Sysutils.Format('[%s]',[aIndex])); Result:=FindValue({$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.Format('[%s]',[aIndex]));
if Result = nil then if Result = nil then
raise EJSONException.CreateFmt(SErrIndexNotFound,[aIndex]); raise EJSONException.CreateFmt(SErrIndexNotFound,[aIndex]);
end; end;