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