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

Материал из DRKB

Групповые опперации с контролами[править | править код]

Если например эти 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 байт - не большая плата за скорость и удобство.


Author: Vit (Vitaly Nevzorov) (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 00355