原文:改进delphi中的RoundTo函数

delphi 中自带数值四舍五入函数RoundTo AVlaue, ADigit 存在一些不确定性情况,并非像帮助或者网络说的四舍六入五凑偶的规则,不信可以随便测试几个数据就会发现与你预期的不一样,比如 . 与 . ,修约 位小数,运行结果却是 . 与 . 。这主要是与浮点数的精度有关 有兴趣可以了解一下浮点数的存储结构,我之前有转载了一篇相关文章 ,我改进这个问题,较好的解决的前面的问题,同时 ...

2012-11-30 20:46 0 6699 推荐指数:

查看详情

DelphiAssignFile函数

procedure TForm1.SaveLog(sFlag:string;MSG:string);var QF1:Textfile; ----声明文本文件类型 Qfiletmp,sP ...

Thu Nov 07 19:51:00 CST 2019 0 660
DELPHI调用API函数

一、概述   Delphi作为一种面向对象的可视化开发工具,以其开发程序的高速度和编译代码的高效率越来越受到广大编程人员的喜爱。Delphi本身提供了包括界面设计、数据库操作、报表打印和Internet等在内的数十个组件,开发者使用它们可以非常容易、快速地制作出所要的应用系统,同时所需要的编程量 ...

Fri Mar 11 01:13:00 CST 2022 0 951
delphi的copy函数和pos函数

1、copy(‘csdn’,1,2) 返回的结果是 cs 注释: Copy有3个参数,第一个是要处理的字符串,第二个是要截取的开始位置,第三个是截取位数 当第三个参数大于字 ...

Thu Jan 19 09:11:00 CST 2017 0 1840
Delphi berlin ShowMessage的改进与使用

这个版本的delphi对ShowMessage进行了重新实现,更好的适应移动跨平台,即在移动平台下是异步执行的,而在Windows及os X下是同步执行的,如果自己控制是否异步显示对话框,也可以通过TDialogServiceAsync(异步对话框)及TDialogServiceSync(同步 ...

Fri Jan 20 02:30:00 CST 2017 0 1912
Delphi 对泛型TList的的改进(TSimpleList)

TList 有一个比较麻烦的问题是,到底由谁来释放List的对象或指针。 本例将释放任务教给 TSimpleList ,方便使用。 如果 TList 为于管理对象,还可以实现 AddNewOne 功能。方便使用。 TSimpleList类应用源码 uSimpleList.pas 源码 ...

Sun Apr 10 19:27:00 CST 2016 0 1594
DelphiFormat与FormatDateTime函数详解

copy:http://hi.baidu.com/yunfanleo/blog/item/0c51d9cdbc0531550eb34558.html Format是一个很常用,却又似乎很烦的方法,本 ...

Wed Jul 09 20:15:00 CST 2014 0 5281
DelphiStrToDateTime函数TFormatSettings参数的使用

上例的代码经过测试,加入FSetting.TimeSeparator:=':';后,毫秒部分读取失败,原因不太清楚。 TFormatSettings中一些属性的解释: DateSeparator :Char 日期分隔符,用于分隔年月日 ...

Fri Jun 02 22:10:00 CST 2017 0 2694
 
粤ICP备18138465号  © 2018-2025 CODEPRJ.COM