delphi - 错误: Undeclared identifier 'DecimalSeparator' and no overloaded version of 'StringReplace'

Question

这个问题已经有答案了:

DecimalSeparator in SysUtils and System.SysUtils (2 个回答)

已关闭 8 年前。

您好，我一直在编码，到目前为止，在WinXP中的Delphi 2007中开发和编译没有问题，直到Win7中的Delphi XE7。

我不确定为什么会发生这种情况。

错误指向的行

....
if(tS<>'') then
begin
  Result:=StrToFloat(StringReplace(String(tS),'.',DecimalSeparator,[]));
  Invalid:=False;
end;
....

错误:

1) [dcc32 Error] UtilNumString.pas(321): E2003 Undeclared identifier:     'DecimalSeparator'
2) [dcc32 Error] UtilNumString.pas(321): E2250 There is no overloaded version     of 'StringReplace' that can be called with these arguments   

请各位指教。谢谢

Answer 1

旧的格式设置全局变量已被删除。您可以使用 FormatSettings 全局变量:

Result:=StrToFloat(StringReplace(String(tS),'.',FormatSettings.DecimalSeparator,[]));

或者，(理想情况下...)，您可以创建本地 TFormatSettings并使用它来代替。

var
  fs : TFormatSettings;
begin
   fs := TFormatSettings.Create();
   Result:=StrToFloat(StringReplace(String(tS),'.',fs.DecimalSeparator,[]));
end;