擴展數字的小數部分

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