如何分别截取浮点数的整数部分和小数部分。

[s98231106]

如题

[naughtyboy]

去整用trunc()

[tsedlinux]

变为字符型，判断小数点位置，截取相应的字串
绝对不会有误差的

哈哈

[alongla918]

同意

[xunji]

trunc(),frac()

[johnsonrao]

trunc(),frac()同意，最简单

[surfguy]

我认为整数部分可以用trunc来取，但小数部分用round可能不行，会有一点点误差。
var
a,b:real;//b小数部分
c:integer;//c为整数部分
d,e:string;
begin
a:=12345.664646;//原数
d:=floattostr(a);
c:=trunc(a);
e:=copy(d,length(inttostr(c))+1,length(d)-length(inttostr(c)));
e:='0'+e;
b:=strtofloat(e);
//如果用b:=a-c产生产结果会有误差。
end;

[cpls]

或者
a:=Int(1.5);
b:=1.5-a;

[surfguy]

frac()也有误差，如上例中它取出来的小数会是0.6646459999998这类的。

[s98231106]

以上各位的意见我都试过，
方法都是正确的。

最后我选择了变字符串的方法，然后截取。

谢谢各位。