一个编程的问题请教各位

Question

FORM中有10个label想在程序中控制
  label1.caption:=a[1]
  label2.caption:=a[2]
/..........
  label10.caption:=a[10]请问要怎么实现啊...谢谢先

Answer 1

先分别设Label1, Label2 ... Label10的Tag属性为1, 2, ..., 10。
for i := 0 to ComponentCount - 1 do
  if (Components[i] is TLabel) then
    TLabel(Components[i]).Caption := a[TLabel(Components[i]).Tag];

Answer 2

for i:=1 to 10 do Tlabel(self.FindComponent('label'+inttostr(i))).Caption:=inttostr(i);