请问在Delphi中如何将一个extended型强制转换为integer型。请哪位大侠给出所出强制转换的函数？

Question

========================= Delphi 5.0=================================
           Char = 1
        Boolean = 1
       smallint = 2
        integer = 4
        longint = 4 
         single = 4
           real = 8
         double = 8       extended = 10
以上是每种数据类型的字节长度。
很明显，从extended转换为integer型是不安全的。所以我建议你修改你使用数据类型，不然你的程序也是不稳定的.

Answer 1

function Round(X: Extended): Int64;//四舍五入
function Trunc(X: Extended): Int64;//取整
function Int(X: Extended): Extended;

Answer 2

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

Answer 3

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

Answer 4

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