Question

delphi 想一个变量经过一个小时后变量的值自动改变成另一个,请问要怎么实现???

比如开始i=1,要是一个小时内,i没有变成0,系统自动把i变成2.
谢谢.

Answer 1

用Timer控件 interval属性 写3600000（1000是一秒）
也就是说隔一小时执行一次
pravite
var i : integer;
i := 1;
在里面写
procedure xxxx.xxxTimer(Sender: TObject);
begin
i := i + 1;
end;
就ok了。

Answer 2

Timer控件计算时间有侯是不太精确的。不如写一个线程，在线程中写一个循环，其中用sleep控制时间比较好。

Answer 3

用一个Timer控件，隔一个小时判断一次i。