delphi 怎么把浮点型转换为整型

请参考以下代码： Uses Math;var aa:Extended;begin aa:=3.28; ShowMessage(IntToStr(Trunc(aa))); //截取整数，小数不要 ShowMessage(IntToStr(Floor(aa))); //往小取整 ShowMessage(IntToStr(Ceil(aa))); //往大取整 ShowMessage(I