想算出一段代码, 比如一个循环运行的时间怎么做?(以毫秒的单位) var i,j:float;begini:=getdatatime ......j:=getdatatimeshowmessage(floattostr((j-i)/1000)+'秒');大概就是这样写的 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var StartTime:DWord; CurrentTime:DWord;begin StartTime:=GetTickCount; //循环 CurrentTime:=GetTickCount- StartTime; showmessage(intToStr(CurrentTime));end; 同意: kevin_gao(困了!累了!睡觉了!) 这个方法比较好。 想问一下delphi开发的网络通信方面的软件是怎么通信的? 急聘Delphi软件工程师(北京上地) 请教:希望得到对“动态输入i次数值”的指点 maimenu的小问题. 明细表更新问题 关于从固定目录中获取文件的问题? 如何控制鼠标在桌面上移动 关于TClientDataSet的问题 控制滚动条的API???? 怎样避免出现Asynchronous socket error 10054/Asynchronous socket error 10053的错误 现在的程序是怎么捕捉局域网中pop3信箱的密码的? 怎么才能显示窗体而在任务栏不显示那个窗口条
StartTime:DWord;
CurrentTime:DWord;
begin
StartTime:=GetTickCount;
//循环 CurrentTime:=GetTickCount- StartTime;
showmessage(intToStr(CurrentTime));
end;
这个方法比较好。