Ver Fonte

* Fix compilation in unicode RTL

Michaël Van Canneyt há 1 ano atrás
pai
commit
b6a0988559
1 ficheiros alterados com 1 adições e 1 exclusões
  1. 1 1
      packages/vcl-compat/src/system.json.pp

+ 1 - 1
packages/vcl-compat/src/system.json.pp

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