delphi中double或float转Integer实践

经实践证明：

var

   d :double;

1.用int(d)或integer(d)强制转换，均无法编译

2.先FloatToStr,再StrToInt时，当有小数的情况就会发生错误

 

可行的方法是：先去掉小数部分，再强制转换

integer(Trunc(d));

 

注：Trunc不会进位。

 

 

 

发表地：广州