Estoy usando Delphi Berlin 10.1.2, acabo de iniciar un nuevo proyecto usando la libreria superobject: https://github.com/hgourvest/superobject
Esta libreria sirve para interpretar respuestas de la API
function FloatToJson(const value: Double): SOString;
var
p: PSOChar;
begin
Result := FloatToStr(value);
if {$if defined(NEED_FORMATSETTINGS)}FormatSettings.{$ifend}DecimalSeparator <> '.' then //Error aqui
begin
p := PSOChar(Result);
while p^ <> #0 do
if p^ <> SOChar({$if defined(NEED_FORMATSETTINGS)}FormatSettings.{$ifend}DecimalSeparator) then //Error aqui
inc(p) else
begin
p^ := '.';
Exit;
end;
end;
end;
Y en esta otra funcion:
function CurrToJson(const value: Currency): SOString;
var
p: PSOChar;
begin
Result := CurrToStr(value);
if {$if defined(NEED_FORMATSETTINGS)}FormatSettings.{$ifend}DecimalSeparator <> '.' then //Error aqui
begin
p := PSOChar(Result);
while p^ <> #0 do
if p^ <> SOChar({$if defined(NEED_FORMATSETTINGS)}FormatSettings.{$ifend}DecimalSeparator) then //Error aqui
inc(p) else
begin
p^ := '.';
Exit;
end;
end;
end;
El error es:
Undeclared identifier: 'DecimalSeparator'
Porque sucede esto?