怎样获取delphi程序运行时间？

Question

我想测试一下不同的代码实现相同目所需时间的差异。是否有像Linux中的编译命令？

Answer 1

GetTickCount返回的是windows启动后的时间，应该不对吧
你想测试一下不同的代码实现相同目所需时间的差异，不妨记录代码执行前后的时间，相减不就可以吗

Answer 2

to netwolfds: 几百微秒的时间也可以吗？记录时间用哪个函数？

Answer 3

GetTickCount只能记毫秒的时间，get代码执行前后的tickcount，相减就可以了
要更精确的好像也有不过我记不住

Answer 4

用GetTickCount相减就行了：
var
  n1: Cardinal;
begin
  n1 := GetTickCount;
  执行代码
  ShowMessage(IntToStr(GetTickCount - n1));
end;

Answer 5

我想几百微秒的时间是测试不出来的，但10毫秒以上应该可以。
  time1:=now;
  执行代码
  time2:=now;
  edit1.Text:=floattostr(time2-time1);