Имеет ли смысл? (Процедура для создания кнопок)

[Kronos913]

По определенным причинам, некоторые кнопки надо создавать не с формы, а изнутри программы.

Надобности совершать каких-то других действий с этой кнопкой нет. Только реагировать на ее нажатие.

Вопрос: есть ли смысл вынести в отдельную процедуру вот так вот создание этих кнопок?

В плане оптимизации программы. Или процесс ввода данных в процедуру съест всю экономию и лучше все же просто обойтись прописыванием отдельно кода для каждой процедуры?

type
  ProcedureClick=procedure(Sender: TObject) of object;

Procedure NewButton(Pr: TPanel; L, t, h, w: integer; s:string; cl: ProcedureClick);
begin
  With TButton.Create(nil) do begin
    Parent:=Pr;
    Top:=t;
    Left:=L;
    Height:=h;
    Width:=w;
    Caption:=s;
    OnClick:=cl;
  End;
End;

[northener]

Если обработчик OnClick для всех кнопок создаваемых процедурой NewButton один и тот же, то никакого смысла в этом коде нет.
Если же они разные, то тоже смысла не вижу.

[BDA]

А есть какой-то толк делать так?

  With TButton.Create(nil) do begin
    Parent:=Pr;

А не так?

  With TButton.Create(Pr) do begin

Сообщение от Kronos913

В плане оптимизации программы.

Если оптимизация по длине исходного кода, то использование процедуры NewButton хотя бы 3 раза (и более) даст сокращение кода.

[Kronos913]

Ради интереса проверил - медленно но сокращается размер программы
Где-то после того как кнопок 20 перевел на такую процедуру - на 1 кб уменьшился таки exe'шник

Ну плюс да, еще и листинг ощутимо уменьшился

[Kronos913]

Кстати, у меня вот вопрос
Что означает эта переменная?
в T___.Create(переменная)

Потому что пока видел примеры только с nil и self

[northener]

Сообщение от Kronos913

Ради интереса проверил - медленно но сокращается размер программы
Где-то после того как кнопок 20 перевел на такую процедуру - на 1 кб уменьшился таки exe'шник

Т.е. на 0.1%
Стоило ли бороться?

Сообщение от Kronos913

Что означает эта переменная?

Эта переменная, а говоря грамотно это параметр AOwner метода TComponent.Create(AOwner:TComponent ) - ссылка на владельца данного компонента. Который обязан в случае своего уничтожения грамотно уничтожить созданный вами ранее компонент.
Если передать в качестве этого параметра nil это значит что уничтожение этого компонента с возвратом памяти в ОС - обязанность программиста. Если self то для начинающих это ссылка на форму, в модуле которой написан такой код.

[BDA]

Сообщение от BDA

А есть какой-то толк делать так? А не так?

Да, я не прав. Так как есть разница между Owner и Parent. Владелец отвечает за уничтожение, а родитель за отображение.

[Kronos913]

Ну то есть, если объект не планирует уничтожаться, то без разницы?

[northener]

Сообщение от Kronos913

Ну то есть, если объект не планирует уничтожаться, то без разницы?

Теоретически и согласно утверждениям мелкомягких действительно без разницы. Ибо при закрытии приложения все ресурсы включая ранее занятую память будут возвращены ОС.

[northener]

Сообщение от BDA

Да, я не прав. Так как есть разница между Owner и Parent. Владелец отвечает за уничтожение, а родитель за отображение.

Вот только в толк не возьму в чём вы посчитали себя неправым! Может ещё раз подумаете при случае? ТС кидает кнопку на некий компонент. Он же контрол. Так почему бы не назначить именно его и владельцем?