Форум: "Основная";
Текущий архив: 2004.09.26;
Скачать: [xml.tar.bz2];
Внизметод 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 вся ветка
Форум: "Основная";
Текущий архив: 2004.09.26;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.032 c