关于timer的interval属性值，进来就给分！！！！

Question

将表的数据time取出赋给timer的inteval，你能再具体一点吗？你要具体显示一个数据表中的数据吗？还是如帮助一样的显示一段文字？？

Answer 1

是不是要做类似信息提示的功能的。
Query1.Open;
procedure aa;
Begin
 if Query1.eof then
    Query1.First;
  Timer1.Interval := Query['time'];
  caption := Query1['word'];
end;

Answer 2

补充
procedure aa;
Begin
if Query1.eof then
    Query1.First;
  Timer1.Interval := Query['time'];
  caption := Query1['word'];
  Query1.next;
end;
  

Answer 3

一个形象的例子，比如说是电影字幕吧！
数据表中的一条数据是电影的每一句对白（word字段），和这句对白持续的时间（time字段）；我要用timer控件控制table控件，让dblabel控件自动的播放每一句对白（即显示数据表中的word字段），因为每一句对白的显示时间是不同的，所以要动态的给timer的interval赋值，这个值就是time字段的数据，
比如数据表：
id    word        time
1    今天吃了吗？  1000
2    还没呢！      3000
3    我请你吃饭吧！ 500
就像电影字幕一样的播放，关键是控制每条对白数据显示的时间，我想用timer控件，因为它可以根据一定的时间间隔自动的显示数据表中的数据，但是对于时间间隔不同，我不知道怎么办了，就这样，这会讲明白了吧？帮帮我咯！！

Answer 4

就这样就可以了。我帮你试过了。
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.caption := Query1['word'];
  tabel1.Next;
  if Table1.Eof then
    table1.First;
  Timer1.Interval := table1['time'];
end;end;

Answer 5

就这样就可以了。我帮你试过了。
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.caption := table1['word'];
  table1.Next;
  if Table1.Eof then
    table1.First;
  Timer1.Interval := table1['time'];
end;