调试Thread出现的问题

Question

procedure Ttextadd.Execute; 
begin 
while (not terminated) do
begin
form1.Query1.open; 
synchronize(give); 
sleep(50);
end;
end; 

Answer 1

感谢斑竹，不过在编译sleep(50)的时候报错，undeclared identifier:'sleep'?
请教是否需要引用什么单元？

Answer 2

uses Windows; Sleep()是一个很平常的API啊·

Answer 3

继续请教，为什么关于数据库操作要这样写呢？
procedure Ttextadd.Execute; 
begin 
while (not terminated) do 
begin 
form1.Query1.open; 
synchronize(give); 
sleep(50); 
end; 
end; 
不涉及sql就不报错，奇怪

Answer 4

同样的情况又出来了~~~~ 当我把delphi5关闭了重启动之后~ 天啦~~~救命

Answer 5

我也想问"为什么“啊？可是既然Borland专家建议我们这么做，有什么办法呢？

Answer 6

你在线程中加这样一句看看：
if (query.Active) then
begin
  terminate;
  return;
end;