Question

delphi中延时函数的问题

一个作业要写个倒计时的程序，就想到了sleep，于是有了以下代码：
procedure TForm1.btn1Click(Sender: TObject);
var
i: Integer;
begin
for i:= 10000 downto 0 do
begin
Label1.Caption:= IntToStr(i);
Sleep(1000);
end;
end;
------------------------
本来的设想是让它每过一秒递减一次，但是程序真正运行时却会死掉，这是为什么呢？
另外还有个就是delay函数，这2个有什么区别吗？

Answer 1

首先，程序死掉是表面的，应该程序主线程在循环里执行你的Sleep操作，不会响应你的其他窗口事件了。
要想不死，你可以使用多线程来sleep,这样主线程不至于在执行你的sleep而停止响应其他事件；

delay函数delphi里没有吧，一般是我们自己来写的，主要用到的是GetTickCount()来实现，这个函数相比sleep，他可以在死的状态下通过Application.ProcessMessages来告诉窗口这时要响应其他消息了，而不至让窗口一直在死，你移动窗口，或关闭窗口，点击按钮等操作都不会受影响

procedure Delay(MSecs: Longint);
//延时函数，MSecs单位为毫秒(千分之1秒)
var
FirstTickCount, Now: Longint;
begin
FirstTickCount := GetTickCount();
repeat
Application.ProcessMessages;
Now := GetTickCount();
until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;

追问

对，我说的delay函数就是这个，现在有2个问题：
1，不明白我sleep（1000），也就是1秒后也该恢复正常了呀，起码数字也该减下啊，怎么就一直不动了呢？

2，这个Gettickcout（）怎么快速声明，form里好像没有这个事件。

追答

label是一个标签控件，他的值实际已经变了，但你看到没变是因为窗口还没处理重画form页面的消息，因为之前跟你解释了，窗口一直在sleep.没时间处理其他消息，要等循环完了，窗口响应了重画的消息你就就看到最终i的值了。

你循环里加上application.ProcessMessages就能看到变了
for i:= 10000 downto 0 do
begin
label1.Caption:= IntToStr(i);
application.ProcessMessages;
Sleep(1000);
end;
Gettickcount是windows API函数，delphi的windows单元已经封装好了这个函数了，你uses windows后直接就能用的

追问

谢谢回答，第2个问题我的意思是说实际应用时我是不是需要全部手写 你第一次贴的代码？有没什么快捷的方法？

追答

要达到你能看到的效果，你循环里加上application.ProcessMessages就行了，也不用Delay了
for i:= 10000 downto 0 do
begin
label1.Caption:= IntToStr(i);
application.ProcessMessages;
Sleep(1000);
end;

追问

好吧，这样也不错，不过我还是想知道万一我要用delay，前面这部分怎么快速声明---全要手写吗？

追答

直接把我发的delay函数复制进去用就好了，因为delphi里没有这个函数，只能自己写