大家新年好，求助关于Timer中又用到Sleep，会使得程序很慢不动的问题啊，谢谢

Question

你好，高手们，想请假下这个问题：谢谢比如我在一个Timer中设定了间隔为5秒，在timer中打个比方我的代码是这样：procedure TForm1.Timer1Timer(Sender: TObject);
var
  i:integer;//打个比方这是设备编号，每个设备都要发送下面的三个数据
begin
  for i:=0 to 3 do
    begin
      SendData(i,'数据1');//打个比方是一个发送函数,把数据1发送给i号设备
      sleep(1000);
      SendData(i,'数据2');
      sleep(1000);
      SendData(i,'数据3');
    end;
end;因为我的发送与发送之间是一点要有点停顿才行的，而这几个发送命令又是循环一直要发的，不知为什么好像一到了sleep(1000),的时候，整个程序就会好慢好慢，基本动不了啊，想做其他的操作都不行，如果我想实现我这样的功能，是不是不能用timer啊，还是用线程可以实现呢？请高手们指点指点，最好是可以举下例子啦，初学不动，谢谢谢谢，新年快乐

Answer 1

begin
  timer1.enable := false;  //停止计时
  dosomething;
  timer1.enable := true;   //开始计时
end;

Answer 2

用timer实现好了,注意循环有完成后关闭,在timer的程序中直接关闭.
比较方便.
另外用线程也可以,复杂一些.

Answer 3

sleep(1000); 是主线程都sleep了，当然动不了
如果会用线程的话最好解决。
在线程里面sleep