转换为整型

Question

我现在想在delphi里 将一个带小数的值 转换为整形。 例如： 将7.1—>8 、7.6->8 。其不遵循四舍五入规则。请问各位高手 我该用什么函数去做？

Answer 1

Ceil(3.6)=4;
在uses部分加上math.

Answer 2

var i,j,num:integer;
begin
i:=strtoint(copy('7.1',1,1));
j:=strtoint(copy('7.1',3,1));
if j<>0 then
begin
  num:=i;
end
else
  num:=7;

Answer 3

或者  (1)int(7.6)+1;   //转为int型
      (2)int(7.6+1);
      (3)Trunc(7.6+1);  //取整数部分
      (4)Round;
// 最好是Ceil(3.6) = 4 上向取整