var
StartTime,EndTime:integer;
begin
StartTime:=GetTickCount;
//
EndTime:=GetTickCount;
showmessage('用时'+floattostr((EndTime-StartTime)/1000.0)+'秒');
end;
计算程序运行时间 毫秒
最新推荐文章于 2024-06-25 18:02:31 发布
1110





