在Delphi中使用对象名称的变量

Question

我正在尝试labels使用常规方式更改许多标题:

form1.label1.caption := '1';
form1.label2.caption := '2';
form1.label3.caption := '3';
form1.label4.caption := '4';
form1.label5.caption := '5';
form1.label6.caption := '6';
form1.label7.caption := '7';
form1.label8.caption := '8';
...

如何使用For和分配i标签名称Label[i]？像这样的东西:

for i := 1 to 50 do
   begin
     form1.label[i].caption := Inttostr(i);
   end;

什么是更改太多对象参数的最佳方法(在这种情况下caption)？

Answer 1

如果你确定你有50个标签label1,label2 .. label50
解决方案可能是这样的:

var lbl: TLabel;
for i:=1 to 50 do
begin
    lbl := FindComponent('Label'+IntToStr(i)) as TLabel;
    lbl.Caption := IntToStr(i);
end;

Answer 2

动态创建控件.如果需要保留对它们的引用,请在数组中保留这些引用.例如,这是一般模式.

var
  FLabels: array of TLabel;
....
SetLength(FLabels, Count);
for i := 0 to Count-1 do
begin
  FLabels[i] := TLabel.Create(Self);
  FLabels[i].Parent := Self;
  FLabels[i].Caption := IntToStr(i+1);
  FLabels[i].Left := 8;
  FLabels[i].Top := 8 + i*20;
end;