Поиск компонента через параметр Name

[b2soft]

Вот такая проблема. При нажатии кнопки первый раз, надо активировать элемент с именем C1, второй раз с именем C2 и так далее до 36. Писать 36 проверок неохота, можно ли кака то так найти с помощью переменной например, первый раз нажал - находит элемент с именем 'C'+Inttostr(i)

где i - типа какой по счету раз нажали


Заранее спасибо

[Valio]

Разумеется, через FindComponent.

[b2soft]

Valio, а поподробнее не можете написать, чтобы я не сидел часаами в яндексе

[Mad_Cat]

/ Использовать FindComponent для получения другого указателя на CheckBox1
procedure TForm1.Button1Click(Sender: TObject);
var
   MyComponent: TComponent;
Begin
   MyComponent := FindComponent('CheckBox1');
   TCheckBox(MyComponent).Checked := True;
end;

[b2soft]

Спасибо, закрывайте тему

[Valio]

Вот например как переспросить лабелы. Если такого нет, то появится сообщение. Причём нужно запоминать ещё и предыдущий элемент, чтоб его "сбросить"

var
  Form1: TForm1;
  i : Integer = 0;
  r_old : TComponent;
implementation

{$R *.dfm}

Procedure TForm1.Button1Click(Sender: TObject);
Var r : TComponent;
Begin
i := i + 1;
if i = 6 Then i := 0;
r := FindComponent('Label' + IntToStr(i));
If r = nil Then
  ShowMessage('Label' + IntToStr(i) + ': нет такого компонента')
Else
  Begin
    Tlabel(r).Caption := 'Это я';
    if r_old <> Nil Then Tlabel(r_old).Caption := 'Это не я';
    r_old := r;
  End;
End;