var
I: Real;
begin
I := 1.123;
if Frac(I) > 0 then
ShowMessage(FloatToStr(Round(I) + 1))
else
ShowMessage(FloatToStr(Round(I)));
end;
I: Real;
begin
I := 1.123;
if Frac(I) > 0 then
ShowMessage(FloatToStr(Round(I) + 1))
else
ShowMessage(FloatToStr(Round(I)));
end;
解决方案 »
- 如何使批处理只运行一个实例!
- 用delphi做界面,提几个问题,新手,望大家帮助
- 在动态创建窗体时,后面的参数,nil,self,owner,application区别
- TAPI对线路的媒体模式不敏感
- 求助,关于删除记录
- 果然是本好书,给分(版主明鉴,详见内)
- 關於 Tquery,高手指點,謝謝,在線等待!
- 更新delphi可执行文件后运行提示:"参数不正确"
- ◎ 大家帮我看一下联想的8120cfe全内置Intel Pentium III;900MHz;128MB;20GB;CD-ROM;24倍速;14.1英寸;Windows 98 SE全新的本本12500元怎么样呀!
- 又是个菜问题,如何调用WINDOWS的程序,比如记事本,通讯薄等。以前有帖子的,找不到了,只好花点分。。。
- help me !
- 两个问题?
trunc() 去掉小数点后数字
round() 四舍五入
各有方法。