转换为整型
我现在想在delphi里 将一个带小数的值 转换为整形。 例如： 将7.1—>8 、7.6->8 。其不遵循四舍五入规则。请问各位高手 我该用什么函数去做？
问题点数：0、回复次数：4Top
1 楼coeltdit（每天多顶几下----->>>大虾就是这样练成的）回复于 2004-12-02 10:56:27 得分 0
Ceil(3.6)=4;
在uses部分加上math.Top
2 楼feeling2003（）回复于 2004-12-02 10:58:02 得分 0
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;Top
3 楼coeltdit（每天多顶几下----->>>大虾就是这样练成的）回复于 2004-12-02 10:59:35 得分 0
或者 (1)int(7.6)+1; //转为int型
(2)int(7.6+1);
(3)Trunc(7.6+1); //取整数部分
(4)Round;
// 最好是Ceil(3.6) = 4 上向取整Top
4 楼IwantFlay（小飞）回复于 2004-12-02 11:01:52 得分 0
trunc(带小数的值)+1Top
