procedure TForm1.SaveLog(sFlag:string;MSG:string);var QF1:Textfile; ----声明文本文件类型 Qfiletmp,sP ...
delphi 中自带数值四舍五入函数RoundTo AVlaue, ADigit 存在一些不确定性情况,并非像帮助或者网络说的四舍六入五凑偶的规则,不信可以随便测试几个数据就会发现与你预期的不一样,比如 . 与 . ,修约 位小数,运行结果却是 . 与 . 。这主要是与浮点数的精度有关 有兴趣可以了解一下浮点数的存储结构,我之前有转载了一篇相关文章 ,我改进这个问题,较好的解决的前面的问题,同时 ...
2012-11-30 20:46 0 6699 推荐指数:
procedure TForm1.SaveLog(sFlag:string;MSG:string);var QF1:Textfile; ----声明文本文件类型 Qfiletmp,sP ...
一、概述 Delphi作为一种面向对象的可视化开发工具,以其开发程序的高速度和编译代码的高效率越来越受到广大编程人员的喜爱。Delphi本身提供了包括界面设计、数据库操作、报表打印和Internet等在内的数十个组件,开发者使用它们可以非常容易、快速地制作出所要的应用系统,同时所需要的编程量 ...
1、copy(‘csdn’,1,2) 返回的结果是 cs 注释: Copy有3个参数,第一个是要处理的字符串,第二个是要截取的开始位置,第三个是截取位数 当第三个参数大于字 ...
这个版本的delphi对ShowMessage进行了重新实现,更好的适应移动跨平台,即在移动平台下是异步执行的,而在Windows及os X下是同步执行的,如果自己控制是否异步显示对话框,也可以通过TDialogServiceAsync(异步对话框)及TDialogServiceSync(同步 ...
TList 有一个比较麻烦的问题是,到底由谁来释放List中的对象或指针。 本例将释放任务教给 TSimpleList ,方便使用。 如果 TList 为于管理对象,还可以实现 AddNewOne 功能。方便使用。 TSimpleList类应用源码 uSimpleList.pas 源码 ...
copy:http://hi.baidu.com/yunfanleo/blog/item/0c51d9cdbc0531550eb34558.html Format是一个很常用,却又似乎很烦的方法,本 ...
上例中的代码经过测试,加入FSetting.TimeSeparator:=':';后,毫秒部分读取失败,原因不太清楚。 TFormatSettings中一些属性的解释: DateSeparator :Char 日期分隔符,用于分隔年月日 ...
10.3.1,Trunc(0.35*100)=34,出现这种情况!bug? 后记: ADataset.FieldByName('F1').AsFloat:=0.35; Trunc(ADatase ...