Delphi 时间耗时统计

处理事情：

数据处理过程中，速度很慢，无法准确定位分析是DB问题还是客户端处理问题，所以增加计时统计日志；

Delphi计时首次使用，查阅资料，予以记录：

var

　BgPoint, EdPoind: int64;

　OffSet: int64;

begin

  BgPoint := GetTickCount;

  //>> 逻辑处理语句。。。。。。

　EdPoind := GetTickCount;

  OffSet := EdPoind - BgPoint; //耗时(ms)

end;

//>>注：GetTickCount函数返回从操作系统启动所经过的毫秒数，它的返回值是DWORD。