doloopcn的博客

//使用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函数，算法可能有点...