如何缩短有关标签标题的重复代码？

Question

我有这样的代码

  Label1.Caption := '';
  Label2.Caption := '';
  Label3.Caption := '';
  Label4.Caption := '';
  Label5.Caption := '';
  Label6.Caption := '';

我怎样才能做一个循环或什么来让它更短？

Answer 1

制作简单的程序来处理标签数组：

procedure ClearLabels(LabelsArr: array of TLabel);
var
  i: Integer;
begin
   for i := Low(LabelsArr) to High(LabelsArr) do
      LabelsArr[i].Caption := '';
end;

然后这样称呼它：

ClearLabels([Label1, Label2, Label3]);

如何缩短有关标签标题的重复代码？

How to shorten repetitive code regarding lable caption?

delphi