Поиск компонентов по имени

[AHTuKiLLeR]

Для простоты восприятия пример.
На форме 3 компоненты TPanel с именами Panel1, Panel2, Panel3.
Так же есть 2 поля Edit и кнопка.
Необходимо чтобы по нажатию кнопки, панели, с именем вписанным в Edit1, присвоился текст (Caption) из Edit2.

Заранее благодарен за подсказки.

[BaronTreep]

if Edit1.Text = 'Panel1' then Panel1.Caption := Edit2.Text;
if Edit1.Text = 'Panel2' then Panel2.Caption := Edit2.Text;
if Edit1.Text = 'Panel3' then Panel3.Caption := Edit2.Text;

^_^

/*
Надеюсь вопроса про произвольное количество панелей не будет? Имя (Panel.Name) панели в готовой програме не определено, записан класс TPanel, Caption */

[AHTuKiLLeR]

омг. Это не наш метод. У меня в проекте около 100 компонентов панелей. И я хочу узнать есть более гибкий метод обращения к компоненту зная его имя(в стринговом формате), а не прямым доступом как описано выше.

[Баламут]

Как-то так

var
  i: integer;
begin
  for i := 0 to Form1.ComponentCount - 1 do
  begin
    if Form1.Components[i] is TPanel then
    begin
      if (Form1.Components[i] as TPanel).Name = Edit1.Text
      then (Form1.Components[i] as TPanel).Caption := 'ПРЕВЕД!!!';
    end;
  end;
end;

[BaronTreep]

Ну надо было сразу говорить:

var
   X : array [1..100] of TPanel;

...
procedure TForm1.InitPanelArray;
begin
 X[1]:=Panel1;
 X[2]:=Panel2;
 X[3]:=Panel3;
 ...
end;

procedure TForm1.Find;
var
  S : string;
  ind : Byte;
begin
  S := Edit1.Text;
  If Pos('Panel', S)<>0 then
    Delete(S,0,5);
    ind := StrToInt(S);   // если это чило
    X[ind] := Edit2.Text;
end;
end;

[evg_m]

прямо из заголовка темы
поиск (find) компонет (component) = findcomponent

[AHTuKiLLeR]

Спасибо. Это оно самое

[Stilet]

Уточню:

procedure TForm1.Button1Click(Sender: TObject);
var c:TPanel;
begin
 c:=TPanel(FindComponent(Edit1.Text));
 if c<>nil then c.Caption:=Edit2.Text;
end;