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

如果您在 a 中有您的号码string，并且也希望在 a 中有结果，string那么您可以在不转换为数字的情况下做到这一点。如果没有，请参阅 Andreas 的回答。

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