Текущий архив: 2004.06.13;
Скачать: 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 вся ветка
Текущий архив: 2004.06.13;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.021 c
