delphi timer 有关问题

delphi timer 问题
有四个参数 A B C D
我想每隔10秒 分别读取 A B C D 应该怎么做

比如说：现在 读取A  
  过10S 读取B
  再过10S 读取C
  再过10s 读取D
如此一直循环，该怎么做？

[解决办法]
申明一个全局变量记录现在该读取什么。

Delphi(Pascal) code

var readflag: Integer = 0;
[解决办法]
设置
Timer1.Interval:=10000;

定义全局变量
var  
readflag:integer;

onTimer事件:

case readflag of
0: ... ;
1: ... ;
2: ... ;
3: ... ;
end;
if readflag = 3 then
 readflag := 0;
else
 inc(readflag);

[解决办法]
来晚了。。
[解决办法]
楼上已经给了代码了
[解决办法]
探讨


申明一个全局变量记录现在该读取什么。
Delphi(Pascal) code
var
 readflag: Integer = 0;


timer事件里
Delphi(Pascal) code
case readflag of
0:;
1:;
2:;
3:;
end;
inc(readflag);
if readflag > 3 then
  readflag = 0;

[解决办法]
探讨


引用:

申明一个全局变量记录现在该读取什么。
Delphi(Pascal) code
var
readflag: Integer = 0;


timer事件里
Delphi(Pascal) code
case readflag of
0:;
1:;
2:;
3:;
end;
inc(readflag);
if readf……