Delphi 反向浮动TRF结果

是否有反转浮动至TRF的功能？我的意思是从货币格式回到字符串格式。例如：

Edit1.Text := FloatToStrF(10000, ffCurrency, 15, 4);

结果

Edit1.Text = '$10,000.0000'

我想知道是否有类似于StrToFloatF的东西

Edit1.Text = '10000';

谢谢

怎么样：

function RemoveAnythingButNumbers(aString: string): string;
var
  C: Char;
begin
  Result := '';
  for C in aString do
  begin
    if C in ['0'..'9'] then Result := Result + C;
  end;
end;

---

请注意，我已更正了这组数字。

从您的回答中，我推断即使在最新的delphi版本中，也没有类似的StrToFloatF或类似的东西。便士是否升级为美元？小数和减号如何？可能Nicks代码是秘密设计的，以帮助新用户更快地获得启示，通过让他发现自己需要多少单元测试。：-）OP把硬币换成了美元，也许这正是他所需要的。实际上，他把100分之一的硬币换成了美元。我无法理解这个问题。

FloatToStrF

的反面将返回一个浮点值。但您似乎想要返回一个字符串。