delphi timer 问题

Question

有四个参数 A B C D
我想每隔10秒 分别读取 A B C D 应该怎么做比如说：现在  读取A    
        过10S 读取B
        再过10S 读取C
        再过10s 读取D
如此一直循环，该怎么做？

Answer 1

申明一个全局变量记录现在该读取什么。
var
 readflag: Integer = 0;timer事件里
case readflag of
0:;
1:;
2:;
3:;
end;
inc(readflag);
if readflag > 3 then
  readflag = 0;

Answer 2

设置
Timer1.Interval:=10000;定义全局变量
var 
readflag:integer;onTimer事件:case readflag of
0: ... ;
1: ... ;
2: ... ;
3: ... ;
end;
if readflag = 3 then
  readflag := 0;
else
  inc(readflag);