数字排列问题

Question

我要向12 个Tlabel 控件分别赋caption，就是label1.caption:=01,  label2.caption:=02,label3.caption:=03，…………label12.caption:=12
怎么用数组实现啊？

Answer 1

var
  AComp: TComponent;
begin
for I := 1 to 12 do
begin
  AComp := FindComponent('label' + IntToStr(I));
  if AComp is TLabel then
    TLabel(AComp).Caption := Format('%.2d', [I]);
  
end;
end;

Answer 2

var
  label_array:array [1..12] of TLabel;
begin  label_array[1]:=label1;
  label_array[2]:=label2;
  label_array[3]:=label3;
  label_array[4]:=label4;
  label_array[5]:=label5;
  label_array[6]:=label6;
  label_array[7]:=label7;
  label_array[8]:=label8;
  label_array[9]:=label9;
  label_array[10]:=label10;
  label_array[11]:=label11;
  label_array[12]:=label12;

Answer 3

原来Format()这么强大，谢谢 happywww(开心汪汪) ，分都给你