delphi 自然四舍五入

在Delphi中，可以使用Round函数来实现自然的四舍五入。

Round函数的使用方式如下：

function Round(const X: Extended): Int64;

其中X为要进行四舍五入的数值，返回值为四舍五入后的整数。

例如，要对浮点数X进行四舍五入：

var
  X: Extended;
  RoundedValue: Int64;
begin
  X := 3.6;
  RoundedValue := Round(X);
  ShowMessage(IntToStr(RoundedValue));
end;

以上代码会弹出一个消息框，显示值4，说明3.6经过四舍五入后变为4。

需要注意的是，Round函数只能处理Extended类型的数值，如果要对其他类型的数值进行四舍五入，需要先进行类型转换。