将取得的10条记录分别赋给10个label?

Question

如题

Answer 1

假定你的label分别定义为：label1..label10
adoqry.close;
adoqry.sql.add('');// your sql for get 10 RSes
adoquery.open;
for i :=1 to 10 do
beign
  if findcomponent('label'+inttostr(i))<>nil then
    (findcomponent('label'+inttostr(i)) as TLabel).caption := adoquery.fieldbyname('yourfield').asstring;
  adoquery.next ;
end;

Answer 2

把你的 label定义为数组 循环赋值

Answer 3

把label设为数组
Var
  Albl:Array[0..9] of TLabel;
  i:Integer;
begin
  //赋值
  Albl[0]:=lbl0;...
  //操作
  for i:=0 to 9 do
  begin
    //你想要的
  end;
end;

Answer 4

(findcomponent('label'+inttostr(i)) as TLabel).caption := adoquery1.fieldbyname('zhanghao').asstring;
 
 这里的adoquery1没有fieldbyname 方法啊！！！

Answer 5

阿飞,fieldbyname()是不会提示的,你照输就是了,没错的.
分我就不要了,他们已经讲得很清楚了.