delphi7 循环语句中加入等待时间

dw: Cardinal

begin

dw:=GetTickCount

while GetTickCount-dw<10*1000 do

Application.ProcessMessages

end

设置一个等待时间，它并不影响脚本的执行速度。

当脚本执行到某个元素定位是，如果元素可以定位，则继续执行，如果元素定位不到，则它将以轮询的方式不断地判断元素是否被定位到。假设在第六秒定位到了元素则继续执行，若直到超出设置的时长10秒还没有定位到元素，则抛出异常。

在 ActionScript 3.0 中处理计时函数的首选方式是使用 Timer 类 (flash.utils.Timer)，可以使用它在每次达到间隔时调度事件。

例如，下列代码创建一个每秒调度一个事件且持续重复 60 次的 Timer 实例：

var oneMinuteTimer:Timer = new Timer(1000, 60)

其中第一个参数1000为每次计时的时间，以毫秒为单位所以1000毫秒即为一秒，第二个参数60为重复计时次数

给你一段完整的实例吧，功能是每隔一秒显示tick + 计时次数

import flash.events.TimerEvent

import flash.utils.Timer

//导入需要的类

var minuteTimer:Timer = new Timer(1000, 5)

// 为间隔和完成事件指定侦听器

minuteTimer.addEventListener(TimerEvent.TIMER,tick)

// 启动计时器计时

minuteTimer.start()

function tick(event:TimerEvent):void

{

// 显示到目前为止的时间计数

// 该事件的目标是 Timer 实例本身。

trace("tick" + event.target.currentCount)

}