Question

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

Answer 1

请参考以下代码：

Uses Math;

var
  aa:Extended;
begin
  aa:=3.28;
  ShowMessage(IntToStr(Trunc(aa)));           //截取整数，小数不要
  ShowMessage(IntToStr(Floor(aa)));            //往小取整
  ShowMessage(IntToStr(Ceil(aa)));              //往大取整
  ShowMessage(IntToStr(Round(aa)));         //四舍五入取整
end;