如何取得一个float变量小数点后面的位数？

Question

如题

Answer 1

转换成string类型的，然后用i ：＝pos（s1，‘.’）得到然后再s := copy（s2，i，length（s）－ 1）
if s<> '' then
  result := strtoint(s);

Answer 2

一般可以类似下面的方法。不过，取得小数点后面位数有什么意义呢？
1.0可能计算机表示为0.99999999999999999999999999，不知道你想要做什么................
    strTemp:string;
    len:integer;
    a:real;
begin
    a:=12.312341234;
    strTemp:=FloatToStr(a);
    len:=Length(strTemp)-Pos('.',strTemp);

Answer 3

Frac函数取得小数部分。    a:=12.312341234;
    axiaoshu := Frac(a);
    len := length(axiaoshu)-2;

Answer 4

用function floattostrf(a,fffixed,10,2):string;a就是数值，fffixed是显示格式，10是数值总长度（包括小数点后），2表示是小数点后2位数。
取得想要的小数点后的数据，
FUNCTION GETPOINTSTR：STRING；
VAR
  S1，S： STRING；
  I： INTEGER；
BEGIN
   S1：=floattostrf(a,fffixed,10,2)；
   i ：＝pos（s1，‘.’）
   s := copy（s2，i，length（s）－ 1）
   if s<> '' then
      result := s;
END；

Answer 5

    a:=11.1111;
    axiaoshu := Frac(a);
    len := length(axiaoshu)-2;

Answer 6

to weige250 (桂电weige) 你是桂林电子工学院的吗？
我也是那毕业的哦，哈哈

Answer 7

to huyongxiao() 
是啊，校友啊，刚刚学delphi，
有机会向你请教啊qq：187368688