在Delphi中能否使用变量引用TLabel组件批量修改Caption属性？

方案1：手动维护组件数组（最直观可控） #

适合提前确定需要批量操作的Label，通过数组统一管理：

1. 在窗体类的私有/公共段声明Label数组：

private
  Labels: array[0..2] of TLabel; // 按实际需要调整数组范围

2. 在窗体OnCreate事件中初始化数组，关联目标Label：

procedure TForm1.FormCreate(Sender: TObject);
begin
  Labels[0] := lblName;
  Labels[1] := lblAge;
  Labels[2] := lblAddress;
end;

3. 批量修改时直接遍历数组赋值：

procedure TForm1.btnUpdateCaptionsClick(Sender: TObject);
var
  i: Integer;
  NewCaptions: array[0..2] of string;
begin
  NewCaptions[0] := '姓名';
  NewCaptions[1] := '年龄';
  NewCaptions[2] := '地址';
  
  for i := Low(Labels) to High(Labels) do
    Labels[i].Caption := NewCaptions[i];
end;

方案2：遍历窗体组件自动筛选（无需手动维护数组） #

如果需要批量修改窗体上所有（或指定标记的）Label，可以遍历组件集合：

procedure TForm1.btnUpdateTargetLabelsClick(Sender: TObject);
var
  i: Integer;
  CaptionSeq: Integer;
  NewCaptions: array of string;
begin
  NewCaptions := ['用户ID', '注册时间', '会员等级'];
  CaptionSeq := 0;
  
  for i := 0 to ComponentCount - 1 do
  begin
    // 筛选出Tag=1的Label（提前给目标Label设置Tag属性为1）
    if (Components[i] is TLabel) and (TLabel(Components[i]).Tag = 1) then
    begin
      if CaptionSeq < Length(NewCaptions) then
      begin
        TLabel(Components[i]).Caption := NewCaptions[CaptionSeq];
        Inc(CaptionSeq);
      end;
    end;
  end;
end;

提示：如果要修改所有Label，去掉Tag=1的判断即可，但注意会包含窗体上所有TLabel组件。

方案3：用集合类管理（适合动态创建的Label） #

如果是动态生成的Label，使用TObjectList<TLabel>管理更灵活，还能自动释放组件：

1. 声明集合对象：

private
  LabelList: TObjectList<TLabel>;

2. 初始化并添加动态Label：

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  TempLabel: TLabel;
begin
  LabelList := TObjectList<TLabel>.Create(True); // 参数True表示自动释放组件
  
  for i := 0 to 3 do
  begin
    TempLabel := TLabel.Create(Self);
    TempLabel.Parent := Self;
    TempLabel.Top := 30 + i*35;
    TempLabel.Left := 20;
    LabelList.Add(TempLabel);
  end;
end;

3. 批量修改Caption：

procedure TForm1.btnUpdateDynamicLabelsClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to LabelList.Count - 1 do
    LabelList[i].Caption := '动态标签_' + IntToStr(i+1);
end;

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