delphi - 逆 FloatToStrF 結果

Question

逆にする機能はありFloatToStrFますか？つまり、通貨形式から文字列形式に戻るということです。例えば：

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

結果

Edit1.Text = '$10,000.0000'

StrToFloatFみたいなのがあるのか​​しらん

Edit1.Text = '10000';

ありがとう

Answer 1

どうですか：

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;

数字のセットを修正したことに注意してください。