Question

Delphi7 我想用Timer控件让10条数据在label循环出现

有10个label 循环显示数据里的数据 每次显示10个

Answer 1

10条数据放在数组里好了
b:array [0..9] of string
用个全局整数变量a:integer

在定时器里写

Label1.caption:=b[a];

inc(a)
if a=10 then
a:=0;

追问

我没说明白 对不起 我的意思是 有10个label 循环显示数据库里的字段值 怎么写 求详细

追答

这个嘛
你定义10个lable 名字依次为
L1 L2 。。。。 L10

定时执行查询数据库
以下 X 是全局整数变量 i 是局部整数变量
X就是步进值 初次执行 X就是 0

adoquery.open; //打开数据库
if x>1 then
adoquery.moveby(X-1); //移动到第X条数据
for i:=1 to 9 do
begin
Tlabel(FindComponent('L')+inttostr(i)).Caption:=''; //清除
end;
i:=1;
while not adoquery.eof do
begin
Tlabel(FindComponent('L')+inttostr(i)).Caption:=adoquery.fieldbyname('字段名').asstring;
inc(i);
adoquery.next;
end;
X:=X+10;

效果是 如果有100条数据
第一次执行先显示前10条

第二次执行再显示11-20条 。。。。

代码是随手写的 没有编译过 也就是解释了一下思路 你自己完善吧