在Delphi中如何使用控件组？

Question

如同VB里面，控件可以起同样的名字，然后用Index来区分。
比如10个Label控件，取名LblTest,然后定义其index属性为1到10，就可以用以下的语句
for(i=1;i<=10;i++)
{
    LblTest(i).Caption="hello";
}

Answer 1

Delphi中没有index这个想法， 你可以用Tag属性来设实现。
设Label1, label2, label3....label10的Tag分别为1,2....10
然后写入以下代码：procedure TForm1.Button1Click(Sender: TObject);
var
  I : Integer;
begin
  for I := 0 to ControlCount-1 do
  begin
    if Controls[i].Tag in [1..10] then
    begin
      TLabel(Controls[i]).Caption := 'Hello';
    end;
  end;
end;