如何在TMS WEB Core中使用Sleep()过程？为何运行时未生效？

在VCL和FMX环境中，Sleep()是阻塞式的暂停方法，能让代码执行暂停指定时长后再继续。但移植到TMS WEB Core后，Sleep()完全不生效——哪怕设置Sleep(50000)也不会有任何延迟，这是因为两者的运行环境存在本质差异：

TMS WEB Core基于WebAssembly和JavaScript运行，而浏览器的JavaScript采用单线程事件循环模型。如果真的实现阻塞式的Sleep()，会直接卡死整个浏览器线程，导致页面失去响应。因此TMS WEB Core中的Sleep()被做了“空实现”处理，运行时会直接跳过，避免页面无响应。

要在TMS WEB Core中实现类似的延迟循环效果，必须使用Web环境的异步方式，推荐两种方案：

方案1：用TJS.setTimeout实现异步递归循环 #

procedure TForm1.RunDelayedLoop;
begin
  // 这里写每次循环要执行的业务代码
  // ...

  // 50毫秒后再次调用自身，实现循环
  TJS.setTimeout(procedure
  begin
    RunDelayedLoop;
  end, 50);
end;

方案2：使用TWebTimer组件 #

• 在窗体上添加TWebTimer组件，设置其Interval属性为50（单位：毫秒）
• 在TWebTimer.OnTimer事件中编写循环要执行的代码，组件会自动每隔50毫秒触发一次事件，无需手动写循环逻辑

这两种方式都遵循Web环境的异步模型，不会阻塞浏览器线程，页面能保持正常响应，这也是Web开发中处理定时任务的标准做法。

内容的提问来源于stack exchange，提问作者Shaun Roselt