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

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

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

Автор: 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;