Delphi中如何将一个extended型等实数强制转换为integer型

Delphi中如何将一个extended型强制转换为integer型
━━━━━━━━━━━━━━━━━━━━━━━━━━

function   Round(X:   Extended):   Int64;//四舍五入,测试可行
function   Trunc(X:   Extended):   Int64;//取整
function   Int(X:   Extended):   Extended;

round 四舍五入
trunc 去掉小数点后面的部分取整

━━━━━━━━━━━━━━━━━━━━━━━━━━
procedure   TForm1.BitBtn1Click(Sender:   TObject);   
var   
    a   :   extended;   
    b   :   int64;   
begin   
      a   :=   2132123323211.005;   
      b   :=   round(a);   
      caption   :=   currtostr(b);   
end;   
不知道是不是你的意思？

━━━━━━━━━━━━━━━━━━━━━━━━━━
如果不做舍入，用Trunc()   
procedure   TForm1.Button1Click(Sender:   TObject);   
var   a:extended;   
          b:integer;   
begin   
      a:=strtofloat(edit1.text);   
      b:=trunc(a);   
      edit2.TExt:=inttostr(b);   
end;

转载于:https://www.cnblogs.com/linguoqiu/archive/2012/12/22/2829303.html