如何精确到微秒(毫秒也可)??? 我有一个函数,比如abc(),我要计算它执行所需时间,怎么精确到微秒?xxx……abc()xxx……这一前一后的xxx……怎么写?用加入什么控件么?timer?好像不准吧! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var vTickCount: DWORD;begin vTickCount := GetTickCount; abc(); Caption := IntToStr(GetTickCount - vTickCount);end VCLSkin皮肤在MDI窗体下的问题 动态建立fastreport报表时,如何添加动态创建的MEMO的OnBeforePrint事件? 请教delphi7中如何实现在线升级程序? 怎样才能知道一个Form已经被release掉了? 奇怪的问题,定有分 简单的图像问题,送分了. 请问为什么要使用资源文件? 判断string变量是空格 怎么调用outlook发mail? Delphi 编译出错 QrRichText打印多行文本的问题 打印是乱码?
vTickCount: DWORD;
begin
vTickCount := GetTickCount;
abc();
Caption := IntToStr(GetTickCount - vTickCount);
end