2017年9月28日
计算代码执行时间
摘要： 1 var 2 StartTime, EndTime: cardinal; 3 begin 4 StartTime := GetTickCount; 5 sleep(1000); 6 EndTime := GetTickCount; 7 caption := (IntToStr(EndTime - StartTime) + ' ms'); 8 end; 阅读全文
posted @ 2017-09-28 10:02 夏天的西瓜君 阅读(175) 评论(0) 推荐(0)