delphi延时程序
procedureTimeDelay(DT:Dword);vartt:dword;begintt:=gettickcount();whilegettickcount()-...
procedure TimeDelay(DT:Dword);
var
tt:dword;
begin
tt:=gettickcount();
while gettickcount()-tt<dt do
application.ProcessMessages;
end;
能帮我注释一下吗？ 展开
var
tt:dword;
begin
tt:=gettickcount();
while gettickcount()-tt<dt do
application.ProcessMessages;
end;
能帮我注释一下吗？ 展开
1个回答
展开全部
procedure TimeDelay(DT:Dword);
var
tt:dword;
begin
tt:=gettickcount(); //取的当前计算机时间
while gettickcount()-tt<dt do//判断是否超出延迟的时间（单位毫秒）
application.ProcessMessages;
end;
var
tt:dword;
begin
tt:=gettickcount(); //取的当前计算机时间
while gettickcount()-tt<dt do//判断是否超出延迟的时间（单位毫秒）
application.ProcessMessages;
end;
追问
application.ProcessMessages;这句是啥意思？
追答
这句你其实可以不用理会，
Delphi7帮助文件是这么写的：
Interrupts the execution of an application so that it can process the event queue.
它是让你的程序在执行这个循环时不会出现假死的现象
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
