5,386
社区成员
发帖
与我相关
我的任务
分享
var
TimeB, TimeE, F : Int64;
d1 : Double;
i, j: integer
begin
QueryPerformanceFrequency(F); //时钟频率
QueryPerformanceCounter(TimeB); //计时开始
for i := 0 to 1000000 do
j := i;
QueryPerformanceCounter(TimeE);
d1 := (TimeE - TimeB)/F*1000;
ShowMessage(FloatToStr(d1)); //d1毫秒级
end;