delphi里的时间控件具体怎么用啊？急……………………

Question

for i := 0 to count1 -1 do
  begin
  listbox1.Items.Add(arrayox[j]+'h'+'    '+arrayshuju[j]+' '+arrayshuju[j+1]+' '+arrayshuju[j+2]+' '+arrayshuju[j+3]+' '+arrayshuju[j+4]+' '+arrayshuju[j+5]+' '+arrayshuju[j+6]+' '+arrayshuju[j+7]+' '+arrayshuju[j+8]+' '+arrayshuju[j+9]+' '+arrayshuju[j+10]+' '+arrayshuju[j+11]+' '+arrayshuju[j+12]+' '+arrayshuju[j+13]+' '+arrayshuju[j+14]+' '+arrayshuju[j+15]);
  j:=(i+1)*16;  end;
我想在这段代码里，i没增加1就延迟10毫妙，就是应该在end前加代码吧，具体怎么用Timer控件啊，
请大虾门指点小弟，不胜感激！！！

Answer 1

那要不要加timer控件啊？？？

Answer 2

用sleep是正道，没必要用timer
timer的用法是：设置interval属性，然后创建ontimer事件，在事件中处理你要处理的事情，然后每过interval毫秒后，再回到ontimer事件里来，再处理那些事情，如此反复，直到事情结束。

Answer 3

一般时不用sleep的，sleep是让计算机等待一段时间后再做下一任务，再之如果要涉及到显示的话用sleep时看不到效果。timer的用法楼上的兄弟说的很清楚了，补充一点，用timer注意要Enabled属性要设成true，也可程序中控制，interval属性后面的值是毫秒记的如果是1000就是1秒，意义就是楼上兄弟说的每过你设的这个时间后，再回到ontimer事件中来，给个例子你看看//每过你设的时间（如果interval设为1000）就是1秒钟来做一遍
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  i:=i+1;
  label1.Caption:=inttostr(i);
end;
//把Timer1打开
procedure TForm1.Button1Click(Sender: TObject);
begin
 i:=0;
 label1.Caption:=inttostr(0);
 Timer1.Enabled:=true;
end;
希望对你有帮助