扩展数的小数部分

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);