Оптимизация

[Terran]

Всем привет! Подскажите пожалуста как можно с помощью нескольких строчек кода присвоить значение сразу нескольким одинаковым компонентам? К примеру есть на форме 15 Button'ов и при нажатии на Button сразу всем 15 Button'онам присвоить значение Button1.Caption:='1'; , а не прописывать для каждого Button1'она код по отдельности.
Заранее благодарен!

[SunKnight]

var i:word;Fin:TComponent;
begin
 for i:=1 to form1.ControlCount  do
 begin
    Fin:=FindComponent('Button' + IntToStr(i));
    (Fin as TButton).Caption:='1';
 end;

что то вроде этого

[Terran]

SunKnight, благодарю!

[GN_]

Если используешь Delphi 2005 или старше, то можно так:

var
  Kompon: TComponent;

begin

  for Kompon in Self do
    if Kompon is TButton then
      TButton(Kompon).Caption := '1'; 

end;

так намного красивее, имхо конечно