Советы по Delphi

         

Создание свойства-массива компонентов


У меня есть форма, на которой имеется около 20 компонентов CheckBox, и я хотел бы поочередно ссылаться на них как на элементы массива...

Вот способ использования свойства-массива. Здесь использована стандартная техника создания списка компонентов CheckBox в обработчике события OnCreate, позволяющая затем обращаться к ним как именно к массиву компонентов CheckBox.

Здесь я приведу два способа "собирания" CheckBox в одном массиве. Один просто собирает все CheckBox на форме. Это простой список, но вы должны убедиться в том, что порядок размещения в нем компонентов такой, каким вы хотите его видеть в массиве. Это нормально в данном случае. Другой способ перечисляет все компоненты согласно их нумерации, заложенной в их имени, но чтобы им воспользоваться, его необходимо раскоментарить. Существует множество других способов. Пусть данный совет послужит вам отправной точкой в изучении интересного вопроса оптимизации кода.

typeTForm1 = class(TForm)procedure FormCreate(Sender: TObject);procedure FormDestroy(Sender: TObject);privateFCheckboxes : TList ;function GetCheckbox( Index : integer ) : TCheckbox ;publicproperty Checkboxes[ Index : integer ] : TCheckbox read GetCheckbox ;end;
varForm1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);var i : integer ;AComponent : TComponent ;beginFCheckboxes := TList.Create ;
{ ТАКЖЕ: это собирает все CheckBox в порядке очередности }for i := 0 to ComponentCount - 1 doif Components[ i ] is TCheckbox thenFCheckboxes.Add( Components[ i ] ) ;
{ ИЛИ: если они имеют имя CheckboxNN и вы хотитеразместить их в массиве в том же порядке... }{for i := 1 to MaxInt do beginAComponent := FindComponent( 'Checkbox' + IntToStr( i ) ) ;if AComponent = NIL then break ;FCheckboxes.Add( AComponent ) ;end ;}end;
procedure TForm1.FormDestroy(Sender: TObject);beginFCheckboxes.Free ;end;
function TForm1.GetCheckbox( Index : integer ) : TCheckbox ;beginResult := TCheckbox( FCheckboxes[ Index ] ) ;end ;

- Mike Scott [000888]



Содержание раздела