float to integer? (100分)

no1 · 2001-06-20

delphi 怎样可以直接float to integer(1234.456 ->1234 )？
floattodicemal(,,,,)行吗？怎么用（for example)？

zgdtxf · 2001-06-20

1.可以用int(1234.456)=1234
2.floattodicemal(,,,,)不行，还是有小数点的

honestman · 2001-06-20

round

yansh · 2001-06-20

var

R: Real;
begin
R := Int(123.456); { 123.0 }
R := Int(-123.456); { -123.0 }
end;

simbasun · 2001-06-20

m : float;
n : integer;
m := 1234.56;
n := integer(m);

no1 · 2001-06-20

int() : real
可要的是：integer

xinglong · 2001-06-20

StrToInt(Format('%4.0f',[1234.456]))

bbkxjy · 2001-06-20

var
i: Integer;
j: double;
begin
j:= 1234.567;
i := Trunc(j);
end;

denglb · 2001-06-20

是否要求四舍五入,一般来说Round()是最好的解决方法

no1 · 2001-06-21

多人接受答案了。