Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС 2017
выпущен 15 марта!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



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

Автор: Mike Scott

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

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

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


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




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS