delphi - 扩展数的小数部分

Question

为了获得数字中的小数部分，我有问题。

我尝试过这种方式：

var
  x: Extended;
begin
  x := 1.563;
  x := Frac(x);
  ShowMessage(FormatFloat('#.000', x));
end;

它会给出结果.563，但我不需要.（点）在结果中。

实际上，单独的小数部分的问题是结果中的一个点。

我是怎么得到563那个例子的？还有其他方法吗？

谢谢 ...

Answer 1

一个简单的解决方案是去掉小数分隔符：

Copy(FormatFloat('#.000', x), 2, MaxInt);