Советы по Delphi

   лечение миопии близорукость |       

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


У меня есть форма, на которой имеется около 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 ;

- Mike Scott [000888]



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