Версия для печати
Понедельник, 14 Марта 2011 10:01

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

Автор 
Оцените материал
(1 Голосовать)

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

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

  1. Берем ставим на форму 10 CheckBox
  2. Объявляем массив
var arr:array[1..10] of TCheckBox
  1. Далее присваиваем указатели массиву:
For i:=1 to 10 do
  arr[i]:=FindComponent(Format('CheckBox%d',[i])) as TCheckBox;

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

arr[5].checked:=true;

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

Прочитано 5183 раз Последнее изменение Пятница, 22 Апреля 2011 23:08
Администратор

Последнее от Администратор