ff:=5.16; ShowMessage(IntToStr( Trunc (aa))); //截取整数，小数不要 ShowMessage(IntToStr( Floor (aa))); //往小取整 ShowMessage(IntToStr( Ceil (aa))); //往大取整 ShowMessage(IntToStr( Round (aa))); //四舍五入取整

其他 Delphi数学函数 参考： https://www.cnblogs.com/guorongtao/p/4853266.html

创建时间：2020.02.19　　更新时间：

博客园 滔Roy https://www.cnblogs.com/guorongtao 希望内容对你有所帮助，谢谢！