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

 Previous  Top  Next

    
 

 

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

 

1) Берем ставим на форму 10 CheckBox

2) объявляем массив

Code:

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

 

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

Code:

{©Drkb v.3(2007): www.drkb.ru,

®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}

For i:=1 to 10 do

arr[i]:=FindComponent(Format('CheckBox%d',[i])) as TCheckBox;

 

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

 

arr[5].checked:=true;

 

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

 

©Drkb::00355

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)

Взято с Vingrad.ru http://forum.vingrad.ru