从Delphi中的浮点数获取小数点分隔符后的值答案

【问题标题】：Get value after decimal separator from floating point number in Delphi从Delphi中的浮点数获取小数点分隔符后的值
【发布时间】：2015-05-15 22:22:43
【问题描述】：

如何获取给定浮点数的小数分隔符后的值？

Number: 129.60
Expected result: 60

【问题讨论】：

【解决方案1】：

只需使用Frac 函数即可。

例如，Frac(3.14) 等于 0.14。当然，一旦你去掉了数字的整数部分，你可以使用任何你选择的方法来制作一个字符串，比如FloatToStr、FormatFloat、Format等。

【讨论】：

【解决方案2】：

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

【讨论】：

【解决方案3】：

如果您在string 中有您的号码，并且希望在string 中也有结果，那么您可以在不转换为数字的情况下执行此操作。如果没有，请参阅 Andreas 的回答。

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

【讨论】：