网络编程 | 站长之家 | 网页制作 | 图形图象 | 操作系统 | 冲浪宝典 | 软件教学 | 网络办公 | 邮件系统 | 网络安全 | 认证考试 | 系统进程
Firefox | IE | Maxthon | 迅雷 | 电驴 | BitComet | FlashGet | QQ | QQ空间 | Vista | 输入法 | Ghost | Word | Excel | wps | Powerpoint
asp | .net | php | jsp | Sql | c# | Ajax | xml | Dreamweaver | FrontPages | Javascript | css | photoshop | fireworks | Flash | Cad | Discuz!
当前位置 > 网站建设学院 > 网络编程 > Delphi
Tag:注入,存储过程,分页,安全,优化,xmlhttp,fso,jmail,application,session,防盗链,stream,无组件,组件,md5,乱码,缓存,加密,验证码,算法,cookies,ubb,正则表达式,水印,索引,日志,压缩,base64,url重写,上传,控件,Web.config,JDBC,函数,内存,PDF,迁移,结构,破解,编译,配置,进程,分词,IIS,Apache,Tomcat,phpmyadmin,Gzip,触发器,socket
网络编程:ASP教程,ASP.NET教程,PHP教程,JSP教程,C#教程,数据库,XML教程,Ajax,Java,Perl,Shell,VB教程,Delphi,C/C++教程,软件工程,J2EE/J2ME,移动开发
本月文章推荐
.Delphi图象截取编程示例(3).
.流的压缩和解压.
.DLL、BPL与字符串传递.
.Delphi中使用动态SQL的几个问题.
.取得的Outlook目录并在TTreeView.
.移动无标题栏窗口.
.kmp模式匹配算法的pascal实现.
.DELPHI的异常及事务保护的常见问.
.远程得到任意远程NT主机帐号List.
.delphi里播放flash.
.向word文档中输出表格及图形.
.在Delphi7中调试COM+.
.Delphi操作Wrod的几个知识点.
.创建不规则窗口.
.获得BIOS信息.
.程序间参数传递.
.用AdoDataSet实现数据表的导入导.
.应用程序敏感键的实现.
.GetPartFilter+SumStocklist.
.Oracle中通过存储过程中返回数据.

一个四舍五入函数

发表日期:2006-2-4


下面是保岛国整数的四舍五入函数,如果要保岛国n位小数,只需简单修改。
function myround(x : extended) : extended;
begin
if (int(x)*10+5) > int(x*10) then
begin
result := floor(x);
end else
begin
result := ceil(x);
end;
end;
上一篇:在stringgrid控件中使文字内容在cell中做到上下居中 人气:5907
下一篇:检测Delphi是否正在运行 人气:4727
浏览全部Delphi的内容 Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐