| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
метод free не вызывает destroy [D7, WinXP]
redlord © (2004-09-09 00:23:00)всем привет
почему не отробатывает процедура 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;
redlord (2004-09-09 00:35:00) [1]ок спасибо
jack128 (2004-09-09 00:28:00) [2]redlord (09.09.04 0:23)
destructor destroy (aowner:Tcomponent);
...
...
...
destructor tscan.destroy;//(aowner:tcomponent);
Деструктор должен быть без параметров. И не забудь override поставить..
| |
