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

метод free не вызывает destroy   Найти похожие ветки 

← →
redlord   (2004-09-09 00:23) [0]

всем привет
почему не отробатывает процедура destroy
при вызове метода free для  экземпляра данного класса

procedure TForm1.Button1Click(Sender: TObject);
begin
scan:=tscan.Create(form1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
scan.Free;
end;
--------------------------------------------------------------
type
 Tscan = class(tobject)
 timer:ttimer;
 constructor create(aowner:Tcomponent);
 destructor destroy(aowner:Tcomponent);
...
...
...
destructor tscan.destroy;//(aowner:tcomponent);
begin
showmessage("меня убили");
end;

---

← →
jack128 ©   (2004-09-09 00:28) [1]

redlord   (09.09.04 0:23)
destructor destroy(aowner:Tcomponent);
...
...
...
destructor tscan.destroy;//(aowner:tcomponent);

Деструктор должен быть без параметров. И не забудь override поставить..

---

← →
redlord   (2004-09-09 00:35) [2]

ок спасибо

---

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

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



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