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

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

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 734 • TDictionary Custom Sort 6 736 • Fast Watermark Sources 6 520 • 3D Designer 9 463 • Sik Screen Capture 6 853 • Patch Maker 7 300 • Айболит (remote control) 7 244 • ListBox Drag & Drop 6 104 • Доска для игры Реверси 97 904 • Графические эффекты 7 422 • Рисование по маске 6 717 • Перетаскивание изображений 5 570 • Canvas Drawing 5 951 • Рисование Луны 5 732 • Поворот изображения 5 186 • Рисование стержней 3 793 • Paint on Shape 2 971 • Генератор кроссвордов 3 911 • Головоломка Paletto 3 109 • Теорема Монжа об окружностях 3 929 • Пазл Numbrix 2 582 • Заборы и коммивояжеры 3 380 • Игра HIP 2 321 • Игра Go (Го) 2 218 • Симулятор лифта 2 625 • Программа укладки плитки 2 208 • Генератор лабиринта 2 727 • Проверка числового ввода 2 365 • HEX View 2 705 • Физический маятник 2 376

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

Похожие по теме исходники