如何简化Label控件Caption属性赋值的重复代码

以下是针对Delphi/VCL环境的几种常用实现方式：

方案1：通过组件名查找批量处理 #

适合Label直接挂载在窗体上，仅需临时操作的场景：

var
  i: Integer;
  targetLabel: TComponent;
begin
  for i := 1 to 6 do
  begin
    targetLabel := FindComponent('Label' + IntToStr(i));
    // 增加校验避免组件不存在时报错
    if Assigned(targetLabel) and (targetLabel is TLabel) then
      TLabel(targetLabel).Caption := '';
  end;
end;

方案2：预存组件到数组（性能最优，适合频繁操作） #

如果需要经常批量操作这几个Label，推荐预先把组件存入数组，后续直接循环即可：

1. 先在窗体类的私有声明中定义数组：

private
  FLabelGroup: array[1..6] of TLabel;

2. 窗体创建时初始化数组：

procedure TMainForm.FormCreate(Sender: TObject);
begin
  FLabelGroup[1] := Label1;
  FLabelGroup[2] := Label2;
  FLabelGroup[3] := Label3;
  FLabelGroup[4] := Label4;
  FLabelGroup[5] := Label5;
  FLabelGroup[6] := Label6;
end;

3. 需要清空时直接遍历数组：

var
  i: Integer;
begin
  for i := Low(FLabelGroup) to High(FLabelGroup) do
    FLabelGroup[i].Caption := '';
end;

方案3：遍历容器内所有Label #

如果这6个Label都放在同一个容器（如Panel、GroupBox）中，不需要匹配编号，直接遍历容器控件即可：

var
  i: Integer;
begin
  // 示例中容器为Panel1，替换为你的实际容器名即可
  for i := 0 to Panel1.ControlCount - 1 do
  begin
    if Panel1.Controls[i] is TLabel then
      TLabel(Panel1.Controls[i]).Caption := '';
  end;
end;

内容的提问来源于stack exchange，提问作者Jroc