Групповые операции с контролами
Если например эти 10 CheckBox все время используются для групповых операций, чтобы не перебирать компоненты можно сделать так.
- Берем ставим на форму 10 CheckBox
- Объявляем массив
var arr:array[1..10] of TCheckBox
|
- Далее присваиваем указатели массиву:
For i:=1 to 10 do
arr[i]:=FindComponent(Format('CheckBox%d',[i])) as TCheckBox;
|
Все, теперь к каждому CheckBox можно обратится как к элементу массива:
arr[5].checked:=true; |
Так как здесь массив статический никаких действий по освобождению памяти делать не надо, по уничтожении компонентов деструктором формы элементы массива будут показывать в никуда. В любом случае этот массив занимает в памяти 40 байт - не большая плата за скорость и удобство.
