double如何转换为integer

Question

在delphi7下有下面一段代码：
var
i : integer;
d : double;
begin
d := 1.0;
i := int(d);
end;
我看了一下，int()函数可以把real转换成整数。但是编译的时候出现'extend'和'integer'不兼容的错误。为什么？是不是int（）在delphi7中不再被支持.还是有些设置需要调整,例如要打开什么编译开关什么的.
That's all.

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
d : double;
begin
d := 1.6;
i := round(d);
//i := trunc(d);
showmessage(inttostr(i));
end;

Answer 2

是这样.
唉,钻到int()的牛角尖里面去了.问了这么无聊的问题.
谢谢诸位.