Скачать: CL | DM;

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

← →
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;

---

← →
SergP ©   (2004-05-28 10:01) [2]

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

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c