错误：未声明的标识符“DecimalSeparator”并且没有“StringReplace”的重载版本[重复]

Question

您好，我一直在编码，到目前为止，在 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;