5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
aming 2002-06-17
- 打赏
- 举报
var
numsec smallint 延时时间
starttime longint
starttime:=now
repeat
application.processmessage()
until now >starttime+numsec*(1/24/60/60)
end
numsec smallint 延时时间
starttime longint
starttime:=now
repeat
application.processmessage()
until now >starttime+numsec*(1/24/60/60)
end
stanely 2002-06-17
- 打赏
- 举报
sleep
zhwquan 2002-06-17
- 打赏
- 举报
用timer控件，加一个变量记数，当大于某值执行
flinming 2002-06-17
- 打赏
- 举报
sleep(时间)
wyd124 2002-06-17
- 打赏
- 举报
用timer控件.或者循环等待.
hammer_shi 2002-06-17
- 打赏
- 举报
要是我的可以，小鱼儿的更好用。
立志做一个佳娃~ 2002-06-17
- 打赏
- 举报
sleep
zsr 2002-06-17
- 打赏
- 举报
Sleep函数
jmj83 2002-06-17
- 打赏
- 举报
用
sleep() 函数
sleep() 函数
hammer_shi 2002-06-17
- 打赏
- 举报
这样可以么？
procedure TForm1.FormActivate(Sender: TObject);
begin
i:=formatdatetime('ss',now);
Edit1.Text:=i;
j:=i;
while strtoint(j)-strtoint(i)<20 do
begin
j:=formatdatetime('ss',now);
Edit2.Text:=j;
end;
showmessage(i+'***'+j);
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
i:=formatdatetime('ss',now);
Edit1.Text:=i;
j:=i;
while strtoint(j)-strtoint(i)<20 do
begin
j:=formatdatetime('ss',now);
Edit2.Text:=j;
end;
showmessage(i+'***'+j);
end;
charlish 2002-06-17
- 打赏
- 举报
up
charlish 2002-06-17
- 打赏
- 举报
up
suny_2001 2002-06-17
- 打赏
- 举报
sleep(1000) 延时一秒。
