从Delphi中的浮点数得到小数分隔符后的值

Question

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

Number: 129.60
Expected result: 60

Answer 1

只需使用Frac功能。

例如，Frac(3.14)等于0.14。当然，只要你摆脱了数字的整数部分，就可以使用你选择的任何方法从中创建一个字符串，例如FloatToStr，FormatFloat，{{1等等。

Answer 2

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

Answer 3

如果您的号码在string中，并希望将结果放在string中，那么您可以在不转换为号码的情况下完成。如果没有，请参阅Andreas回答。

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