delphi - Delphi で浮動小数点数から小数点記号の後に値を取得する

Question

指定された浮動小数点数の小数点記号の後に値を取得する方法は?

Number: 129.60
Expected result: 60

Answer 1

関数を使用するだけFracです。

たとえば、Frac(3.14)等しい0.14. もちろん、数値の整数部分を取り除くとすぐにFloatToStr、FormatFloat、Format、 などのように、選択した任意の方法を使用して文字列を作成できます。

Answer 2

var
  abobrinha, Expected : real;
begin
  abobrinha := 129.60;
  Expected := abobrinha - trunc(abobrinha);
end;

Answer 3

に数値がstringあり、結果も にしたい場合はstring、数値に変換せずに実行できます。そうでない場合は、アンドレアスの回答を参照してください。

i := Pos( DecimalSeparator, value );
if i > 0 then
  result := Copy( value, i + 1, Length( value ) - i )
else
  result := '';