Необходимость деструктора в описании своего класса

← →
SergP. (2005-05-25 18:25) [0]

Пишу некоторый класс:

type TMonth = class(TEdit) public constructor Create(Aowner:TComponent); override; private month:byte; procedure setValue(value:byte); procedure OnPopupClick(sender:TObject); published property value:byte read month write setvalue; end; ... const monthlist: array[1..12] of string[8] = ("січень","лютий","березень","квітень","травень","червень","липень","серпень","вересень","жовтень","листопад","грудень") ; ... constructor TMonth.Create(Aowner:TComponent); var i:integer; MenuItem:TmenuItem; begin inherited Create(Aowner); Text:=""; ReadOnly:=true; PopupMenu:=TPopupMenu.create(Aowner); PopupMenu.Items.Clear; for i:=1 to 12 do begin MenuItem:=TMenuItem.Create(PopupMenu); MenuItem.Caption:=monthlist[i]; PopupMenu.Items.Add(MenuItem); MenuItem.Tag:=i; MenuItem.OnClick:=OnPopupClick; end; end; procedure TMonth.OnPopupClick(sender:TObject); begin month:=TMenuItem(sender).tag; text:=TMenuItem(sender).Caption; end; procedure TMonth.setValue(value:byte); begin if (value>0) and (value<13) then month:=value; text:=monthlist[value]; end;

нужно ли мне писать деструктор? Или необязательно?

← →
Eraser © (2005-05-25 18:31) [1]

SergP. (25.05.05 18:25)

Нужно.
Деструктор необходим для освобождения ресурсов, занятых в конструкторе. В конструкторе у тебя создан экз. класса TPopupMenu.

← →
TUser © (2005-05-25 18:32) [2]

Да, в деструкторе надо будет уничтожить PopupMenu и его итемы

← →
Eraser © (2005-05-25 18:33) [3]

TUser © (25.05.05 18:32) [2]

А айтемы причём? Разве они не уничтожатся в деструкторе TPopupMenu?

← →
Mx © (2005-05-25 18:38) [4]

А если в PopupMenu:=TPopupMenu.create(Aowner) вместо AOwner поставить Self то необходимости в деструкторе не вижу. TComponent.DestroyComponents всё сама разрушит.

← →
SergP. (2005-05-25 18:40) [5]

Вот просто сомнения возникли...
PopupMenu разве не уничтожится при уничтожении своего Owner"а?

← →
SergP. (2005-05-25 18:41) [6]

Вот просто сомнения возникли...
PopupMenu разве не уничтожится при уничтожении своего Owner"а?

← →
Mx © (2005-05-25 18:43) [7]

Уничтожится, но "зашиваться" на "внешний" Owner думаю не стоит, лучше Owner"ом меню сделать сам экземпляр TMonth, то бишь Self.

← →
Eraser © (2005-05-25 18:43) [8]

SergP. (25.05.05 18:40) [5]

А если экземпляры твоего класса то создаются, то уничтожаются по ходу выполнения программы, при этом программа "резидентная", т.е. всегда работает, и ещё при этом комп, на котором она установлена, почти никогда не перезагружают, что тоже частое явления в различных учереждениях... через некоторое время твоя прога сожрёт всю память.

← →
SergP. (2005-05-25 18:48) [9]

> Eraser © (25.05.05 18:43) [8]

Ага. Понятно... Просто в моем случае создается форма, на ней ScrollBox, а уже на нем куча всяких объектов, в том числе и объектов вышеупомянутого класса, а уничтожаться все планируется методом уничтожения самой формы...

← →
SergP. (2005-05-25 18:52) [10]

> Mx © (25.05.05 18:43) [7]
> Уничтожится, но "зашиваться" на "внешний" Owner думаю не
> стоит, лучше Owner"ом меню сделать сам экземпляр TMonth,
> то бишь Self.

на всякий случай так и сделал....

Правильно, уничтожение формы приведет к вызову ее DestroyComponents, а потом к этому же методу всех ее компонентов, но если этот PopupMenu "жить не может" без TMonth, то Owner"ом корректно сделать TMonth, а иначе будет то, о чем написал Eraser © (25.05.05 18:43) [8].

Необходимость деструктора в описании своего класса Найти похожие ветки