Delphi - база знаний


Групповые опперации с контролами


Групповые опперации с контролами



Если например эти 10 CheckBox все время используются для групповых операций, чтобы не перебирать компоненты можно сделать так.

1) Берем ставим на форму 10 CheckBox
2) объявляем массив

var arr:array[1..10] of TCheckBox

3) Далее присваиваем указатели массиву:

For i:=1 to 10 do
  arr[i]:=FindComponent(Format('CheckBox%d',[i])) as TCheckBox;


Все, теперь к каждому CheckBox можно обратится как к элементу массива:

arr[5].checked:=true;

Так как здесь массив статический никаких действий по освобождению памяти делать не надо, по уничтожении компонентов деструктором формы элементы массива будут показывать вникуда. В любом случае этот массив занимает в памяти 40 байт - не большая плата за скорость и удобство.

Автор Vit
Взято с Vingrad.ru





Начало  Назад  Вперед



Книжный магазин