delphi - 在 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;

Answer 3

如果要更改表单上的所有标签，可以使用以下内容：

for i := 0 to Form1.ComponentCount do
  if Form1.Components[i] is TLabel then
    TLabel(Form1.Components[i]).Caption := IntToStr(i + 1);

如果标签在 Panel 或其他容器上，您可以通过将 Form1 替换为例如“Form1.Panel1”来限制这一点。您也可以使用例如。组件的标签属性可以轻松选择要更改的标签。