doloopcn的博客

当软件发布的时候如果是一大堆EXE的时候，我去那个烦4人，一个项目一个项目的打开然后Project-Option-Version Info，然后手工输入版本号。。。今天找了一下资源发现，原来Delphi7 把这些信息都保存在一个文件中，随便测试了一下，好样的，成功！https://download.csdn.net/download/doloopcn/18807200大家也别喷我，毕竟也要赚点资源分，评论后，你花的一分也返回了。...

//使用RecordSet遍历57287条记录，只用了2012毫秒 iTC:=GetTickCount; qryData.Recordset.MoveFirst; for i:=1 to qryData.Recordset.RecordCount do begin qryData.Recordset.MoveNext; end;//使用 DataSet遍历，用了20249毫秒 iTC:=GetTickCount; qryData.First; for i:...

记得前段时间有论坛有讨论过Round函数不能进一的问题，自己在项目中竟然也同样遇到了情况，查看了资料才发现，DELPHI用的Round竟然是银行家算法：奇进偶不进，逢六进一。论坛上也有银行家算法的介绍：https://blog.csdn.net/gjtao1130/article/details/8118379百般无奈，只能手工想办法修改了，写了一个RoundClassic函数，算法可能有点...