怎样让循环暂停

add0 2001-08-14 10:44:05
用循环for i:=1 to 10 do......
要想每次循环时停500毫秒
就是说执行完i=1后停500毫秒,i=2后停500毫秒,.......
怎么做
...全文
196 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
cszhz 2001-08-20
  • 打赏
  • 举报
回复
tickcount
add0 2001-08-14
  • 打赏
  • 举报
回复
小弟是菜菜的啦,没有好一点的办法吗
rufujian 2001-08-14
  • 打赏
  • 举报
回复
多线程
blackfiles 2001-08-14
  • 打赏
  • 举报
回复
如果自己写个延时呢?
ch81 2001-08-14
  • 打赏
  • 举报
回复
那就用定时器timmer,然后配合内核对象!
add0 2001-08-14
  • 打赏
  • 举报
回复
有函数吗?
add0 2001-08-14
  • 打赏
  • 举报
回复
好像不是,sleep是让整个系统停500毫秒,这样写会让系统停5000毫秒!
softcool 2001-08-14
  • 打赏
  • 举报
回复
用定时器,每各500加1,加到i=10把Ttimer.enabled:=false,就可以了
ch81 2001-08-14
  • 打赏
  • 举报
回复
for i:=1 to 10 do
begin
....
sleep(500);
end;

5,392

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧