如何将表中的数据逐一赋给LABEL？

Question

在FORM上放了N个LABEL，我想把表中的多条记录数据逐一的赋给LABEL，不知道如何实现，如果一个个的代码实现太麻烦了？

Answer 1

for i := 0 to 记录数 do
findcompont('label'+inttostr(i))

Answer 2

with adoquery1 do begin
first;
for i:=1 to adoquery1.recordcount do begin
  创建一个label
  label.caption:=adoquery1.fields[1].asstring;
  next;
end;
end;

Answer 3

用循環變量...
eg: 
  
...
for i:=0 to adoquery1.recordcount -1 do
begin
  lab.caption:=adoquery1.fields[1].asstring;
  next;
end;
...