Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3390700 Tue, 24 Dec 2013 06:47:36 +0000 In-place создание массива из констант/переменных https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3390700 Цитата Fr0sT @
Вариант без generics тоже, возможно, сработает - мне не на чем проверить.

Например, в D7 не сработает, т.к. там нет конструкторов у дин. массивов.]]> Filka Все языки: Статьи, заготовки в FAQ https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3390698 Tue, 24 Dec 2013 06:44:13 +0000 In-place создание массива из констант/переменных https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3390698 Цитата Fr0sT @
К тому же что, если понадобится менять не только enabled, а, например, еще и visible?
Цитата Fr0sT @
В процедуре и менять...
Зато Open array parameters есть в любой версии Delphi...

Ну можно еще использовать универсальную функцию просто для создания и инициализации массива контролов в рамках подхода Fr0sT
    type
      TCtlArray = array of TControl;
    function GetCtlArray(Controls:array of TControl):TCtlArray;
    begin
      SetLength(Result,High(Controls)+1);
      Move(Controls[0],Result[0],SizeOf(TControl)*(High(Controls)+1));
    end;
]]> leo Все языки: Статьи, заготовки в FAQ https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3390696 Tue, 24 Dec 2013 06:43:36 +0000 In-place создание массива из констант/переменных https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3390696 Fr0sT Все языки: Статьи, заготовки в FAQ https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3390691 Tue, 24 Dec 2013 06:38:38 +0000 In-place создание массива из констант/переменных https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3390691 Filka Все языки: Статьи, заготовки в FAQ https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3390684 Tue, 24 Dec 2013 06:30:19 +0000 In-place создание массива из констант/переменных https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3390684 Filka, я ж и не спорю, что решить задачу можно несколькими способами. Просто делюсь более неочевидным.]]> Fr0sT Все языки: Статьи, заготовки в FAQ https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3390186 Mon, 23 Dec 2013 07:32:19 +0000 In-place создание массива из констант/переменных https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3390186 Цитата Fr0sT @
отдельная процедура занимает больше места, чем объявление типа
И что?

Цитата Fr0sT @
если понадобится менять не только enabled, а, например, еще и visible?
В процедуре и менять...

Зато Open array parameters есть в любой версии Delphi...]]> Filka Все языки: Статьи, заготовки в FAQ https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3390177 Mon, 23 Dec 2013 07:24:56 +0000 In-place создание массива из констант/переменных https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3390177 Filka, отдельная процедура занимает больше места, чем объявление типа). К тому же что, если понадобится менять не только enabled, а, например, еще и visible?]]> Fr0sT Все языки: Статьи, заготовки в FAQ https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3390153 Mon, 23 Dec 2013 06:36:20 +0000 In-place создание массива из констант/переменных https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3390153
    procedure SetEnabledBtn(const BtnArr: array of TButton; Value: Boolean);
    var
      I: Integer;
    begin
      for I := Low(BtnArr) to High(BtnArr) do
        BtnArr[I].Enabled := Value;
    end;
     
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      SetEnabledBtn([Button2, Button3, Button4], False);
    end;
]]> Filka Все языки: Статьи, заготовки в FAQ https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3390145 Mon, 23 Dec 2013 06:28:22 +0000 In-place создание массива из констант/переменных https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3390145 Цитата Filka @
Можно же использовать Open array parameters...

Как оно применимо к данной ситуации?]]> Fr0sT Все языки: Статьи, заготовки в FAQ https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3390106 Mon, 23 Dec 2013 05:22:59 +0000 In-place создание массива из констант/переменных https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3390106 Цитата Fr0sT @
Работает и без generics, но тип дин. массива обязательно должен быть предварительно объявлен

Можно же использовать Open array parameters...]]> Filka Все языки: Статьи, заготовки в FAQ https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3380998 Thu, 28 Nov 2013 06:10:34 +0000 In-place создание массива из констант/переменных https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3380998 SPM, куча однотипных действий выполняется не копипастой, а циклом, как и положено однотипным действиям. Оптимизация скорее на уровне исходника, чем машинного кода.

Добавлено
Хорошо пригодится в случае, когда, например, надо управлять доступностью групп контролов на основе уровня юзера.]]> Fr0sT Все языки: Статьи, заготовки в FAQ https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3380923 Wed, 27 Nov 2013 18:11:55 +0000 In-place создание массива из констант/переменных https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3380923 Цитата
Лично мой взор неуемного оптимизатора
стесняюсь спросить, а что тут оптимизировано?]]> SPM Все языки: Статьи, заготовки в FAQ https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3380812 Wed, 27 Nov 2013 12:05:00 +0000 In-place создание массива из констант/переменных https://forum.sources.ru/index.php?showtopic=384319&view=findpost&p=3380812 In-place создание массива из констант

Этот метод мне подсказал, кажется, leo, за что ему респект.

Задача:
Иногда бывает нужно сделать перебор ряда однотипных переменных. Самый распространенный пример - массовое управление группами контролов
    Button1.Enabled := False;
    Button3.Enabled := False;
    Button5.Enabled := False;


Лично мой взор неуемного оптимизатора сия конструкция оскорбляет, но на первый взгляд от нее никуда не деться - разве что чере временный массив, но и его придется заполнять по одному. Конструкция [item1, item2, ...] работает только в параметрах подпрограмм - ну а создавать отдельную процедуру для одного действия тоже не хочется.
К счастью, есть и другой, хитрый способ получить переменную дин. массива, а именно:
    <dyn_array_type>.Create(item1, item2, ...)


Для нашего случая:
    var
      btn: TButton;
    ...
      for btn in TArray<TButton>.Create(Button2, Button6, Button7) do
        btn.Enabled := False;

либо получаем для неоднократного последующего применения
    var
      i: Integer;
      BtnGroup1: TArray<TButton>;
    ...
      BtnGroup1 := TArray<TButton>.Create(Button2, Button6, Button7);
      ...
      for i := Low(BtnGroup1) to High(BtnGroup1) do
       BtnGroup1[i].Enabled := False;

А можно и для разношерстных контролов
    var
      comp: TControl;
    ...
      for comp in TArray<TControl>.Create(Button2, Button6, CheckBox3) do
        comp.Enabled := False;


Работает и без generics, но тип дин. массива обязательно должен быть предварительно объявлен:
    type
      TArrayButton = array of TButton;
    var
      btn: TButton;
    ...
      for btn in TArrayButton.Create(Button1, Button2) do
        btn.Enabled := False;
]]> Fr0sT Все языки: Статьи, заготовки в FAQ