怎样实现浮点数到整数的转化

Question

各位大哥：
    小弟的程序要用到浮点数到整数的转化，只不过 Pascal 没有现成的函数可以调用，只有 FloatToStr、StrToInt 等等，但是直接套用 StrToInt(FloatToStr(浮点数)) 是不行的。各位大哥有没有什么办法？谢谢！

Answer 1

function Trunc(X: Extended): Int64;

Answer 2

强制转化 y:=integer(x)//x为浮点型的,y 为整型的

Answer 3

Function FloatToInt(var temp:float):int;
begin
  FloatToStr(temp)；
  resulte:=StrToInt(temp)；
end;自己写一个函数

Answer 4

<<强制转化 y:=integer(x)//x为浮点型的,y 为整型的不行吧

Answer 5

呵呵，非常感谢各位帮忙。
小弟早就自己尝试了 yourlin(火暴弓虽) 兄的办法，行不通的。
小弟刚刚去 Delphi盒子 发了个贴子，得到的回复是：
==============================================
Trunc  //浮点数取整
RoundTo  //浮点数四舍五入取整
==============================================
这里贴出来希望对大家以后有所帮助。
再次谢谢各位！

Answer 6

function Trunc(X: Extended): Int64;