Обрашение к Лейблам

[Хитрец]

Задача обратится к Label не по имяни, а по индексу т.к. их очень много на форме и береберать их по одному в коде мне кажется не прилично!

И тут вдруг я понял, что не знаю как обратится к ним в цикле. Я его и так и сяк он не как.

Знаю, что если указать TLabel(Label11).captino := 'asdf' , то все будет пучком, но не знаю как определить эту переменную TObject, чтобы определить в цикл. Путем долгих мучений нашел выход описать так

for I := 22 to 26 do
begin
Tlabel(FindComponent('Label' + IntToStr(i))).Caption := 'test';
end;

Товариши эксперты скажите есть др. вариант или я нашел единственно верное решение этого вопроса?

[Лукманов Александр]

procedure TForm1.btn2Click(Sender: TObject);
var i,k: Integer;
begin
 for i:=0 to ComponentCount-1 do
 if Components[i].ClassType=TLabel  then begin
 k:=k+1;
 (Components[i] as TLabel).Caption:=IntToStr(k);
end;
end;

одного не пойму. цифры слишком большие получаются. Но по порядку.

[Хитрец]

Сообщение от Лукманов Александр

procedure TForm1.btn2Click(Sender: TObject);
var i,k: Integer;
begin
 for i:=0 to ComponentCount-1 do
 if Components[i].ClassType=TLabel  then begin
 k:=k+1;
 (Components[i] as TLabel).Caption:=IntToStr(k);
end;
end;

одного не пойму. цифры слишком большие получаются. Но по порядку.

Так не пойдет ты мне предлогаешь переберать вообще все компоненты на форме.

[s.Creator]

Я думаю FindComponent тоже перебирает все компоненты на форме пока не найдет нужное имя (причем перебор будет при каждом поиске) так что это не страшно.
Если тебе нужно не все TLabel а только одна или несколько групп то используй еще свойство TLabel.Tag
Например назначаешь для нужной тебе группы Tag := 1
и дорабатываешь код Александра

procedure TForm1.ChangeCaptions(aTag: Longint; newCaption: string);
var i: Integer;
begin
 for i:=0 to ComponentCount-1 do
 if (Components[i].ClassType = TLabel) and (Components[i].Tag = aTag)  then 
 begin
   (Components[i] as TLabel).Caption := newCaption;// или делаешь что тебе надо
 end;
end;

используем:

procedure TForm1.btn2Click(Sender: TObject);
begin
  ChangeCaptions(1, 'test');
end;