Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.08.16;
Скачать: CL | DM;

Вниз

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

 
Vitaliy_____   (2009-06-18 13:43) [0]

И снова здравствуйте!
Продолжим тему, поднятую в
http://delphimaster.net/view/2-1242878656/
Суть вопроса такая:
Имеется "базовый класс", наследуемый от TObject.
Здесь все сделано как мы разобрались,
destructor destroy; override;

От него наследуется другой класс. Как в данном случае описать деструктор?
Необходимо чтобы также был выполнен сначала деструктор наследуемого класса, затем "базового".
Как тут правильно описать?
То есть, имеем иерархию TObject-Class1-Class2.
Как описать деструктор в Class2, чтобы при вызове TObject(elem).Free у нас выполнились все 3 деструктора (Class2, Class1 и, собственно, TObject).
inherited в конце деструкторов стоит.
Собственно, вопрос даже в том, будет ли еще раз перекрыт TObject.destroy если мы в Class2 напишем destructor destroy; override;?
И нужно ли в Class1 описать деструктор как virtual?


 
Loginov Dmitry ©   (2009-06-18 14:05) [1]

В той ветке же все объяснили. Ни надо ничего выдумывать. Нужно просто делать

TLineData = class(TObject)
...
destructor destroy; override;

end;
...

destructor TLineData.destroy;
begin
....
inherited;
end;


и так для любого класса независимо от уровня наследника.
В этом случае при вызове TObject.Free гарантированно выполнятся все деструкторы. Это же так просто!)


 
Ega23 ©   (2009-06-18 14:09) [2]


> гарантированно выполнятся все деструкторы


Скажем так, они должны выполнится. А вот выполнятся-ли - зависит от мозгов и рук разработчика.


 
Vitaliy_____   (2009-06-18 14:11) [3]

И тем не менее, хотелось убедиться, что для следующего уровня наследования директива override; СНОВА перекроет TObject.destroy...
Если есть сомнения, лучше спросить, чем потом голову ломать ведь так :)


 
Ega23 ©   (2009-06-18 14:13) [4]


> СНОВА перекроет TObject.destroy...


Строго говоря, она его не перекроет. Она перекроет метод Destroy прямого класса-предка. В случае, когда предок - TObject, то да, перекроет TObject.Destroy


 
Loginov Dmitry ©   (2009-06-18 14:14) [5]

Убедился?)


 
Vitaliy_____   (2009-06-18 14:21) [6]

Ну, раз люди говорят... Стоит поверить.
А то знаете ли, день рабочий [у нас] уже заканчивается, голова тяжелая, мало ли что в голову взбредет, а потом разгребай это все :)


 
Dennis I. Komarov ©   (2009-06-18 14:25) [7]

А в генофонде покапаться? Там же одно на другом...



Страницы: 1 вся ветка

Текущий архив: 2009.08.16;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.015 c
6-1205915538
grisme
2008-03-19 11:32
2009.08.16
Content-Length field


2-1245319255
Fr
2009-06-18 14:00
2009.08.16
Сортировка TListView в виртуальном режиме.


15-1245433518
Урсулапов_
2009-06-19 21:45
2009.08.16
Cranberries - Animal Instinct


15-1244838605
Юрий
2009-06-13 00:30
2009.08.16
С днем рождения ! 13 июня 2009 суббота


15-1245393982
alien1769
2009-06-19 10:46
2009.08.16
Ведение арматурных карточек