若有10个Label控件,想通过循环访问每个Label的Name如何实现？

Question

我想动态的修改十个标签，总不能每个都写一遍，希望大家帮忙看一下怎么解决？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  aLable: TLabel;
  i: Integer;
begin
  for i := 0 to Self.ComponentCount - 1 do
  begin
    if Self.Components[i].ClassName = 'TLabel' then
    begin
      aLable := TLabel(Self.Components[i]);
      aLable.Caption := 'aaa';
    end;
  end;
end;

Answer 2

for i:=0 to ComponentCount-1 do
if components[i] is TLable then
   showmessage((Components[i] as TLable).Name);

Answer 3

for i:=0 to form1.ControlCount-1 do
  begin
    if form1.Controls[i].ClassName='TLabel' then
       TLabel(form1.Controls[i]).Caption := '你自己的内容';
  end;