Переопределение деструктора класса.

← →
SergP © (2004-05-28 00:08) [0]

Есть небольшой вопрос:
если я объявляю новый класс, делаю его наследником какого-нить класса и переопределяю деструктор, то метод free (если его я не трогаю) какой деструктор будет использовать: переопределенный или унаследованный?

← →
Palladin © (2004-05-28 04:03) [1]

Type TClass_1_1=Class public destructor destroy; override; end; TClass_1_2=Class(TClass_1_1) public destructor destroy; override; End; TClass_2_1=Class public destructor destroy; end; TClass_2_2=Class(TClass_2_1) public destructor destroy; End; destructor TClass_1_2.destroy; begin Inherited; // Form1.Memo1.Lines.Add("1_2 Destroy"); end; destructor TClass_1_1.destroy; begin Inherited; // Form1.Memo1.Lines.Add("1_1 Destroy"); end; destructor TClass_2_1.destroy; begin Inherited; Form1.Memo1.Lines.Add("2_1 Destroy"); end; destructor TClass_2_2.destroy; begin Inherited; Form1.Memo1.Lines.Add("2_2 Destroy"); end; procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Add("TClass_1_2"); With TClass_1_2.Create Do Free; Memo1.Lines.Add("TClass_2_2"); With TClass_2_2.Create Do Free; end;

А написать одно слово нельзя было?
Я удивляюсь, неужели не лень было писать все это?
В принципе даже если ты хочел показать мне это все на примере, то мог бы просто намекнуть как сделать. Или у тебя на все вопросы уже готовые наброски кодов имеются? :-))

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

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