확장 된 숫자의 분수 부분

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