Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как правильно уничтожать инстансы ?? Что писать в Destroy ?? 
:(
    Опции темы
Гость_Игорь
Дата 5.8.2004, 09:35 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Есть класс типа такого:

Код
TMyClass = class
 Time : TDateTime;
 Depts : TList;
 Something : TSomething;
end;


Надо ли уничтожать внутренние классы
в деструкторе? Что-то типа так:

Код
destructor TMyClass.Destroy;
begin
 Time.Free;
 Depts.Free;
 Something.Free;

 inherited Destroy;
end;


Или же они уничтожаются "автоматом"?

И еще вопрос: необходим ли вызов в деструкторе
Код
inherited Destroy;
??

Заранее спасибо.
  Вверх
Dynamic
Дата 5.8.2004, 10:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 372
Регистрация: 5.7.2004
Где: Салехард

Репутация: 12
Всего: 15
Уничтожать надо, желательно с "обnilиванием" (во избежание возможных ошибок при обращении к объекту). Деструктор тоже надо вызывать, если ты его не переопределяешь полностью.

ИМХО.


--------------------
Было бы о чем молчать, а уж что сказать – всегда найдется...
PM MAIL WWW   Вверх
Guest
Дата 5.8.2004, 10:35 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Ни фига не понял.

Так надо ли в деструкторе вызывать Free для каждого члена класса ?

И что будет если я вообще не объявлю деструктор в своем классе ?
Просто закоментарю его.
  Вверх
Гость_123
Дата 5.8.2004, 10:54 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Вызывать надо, только не Фри, а nil(ИМХО)
......................
А будет, очень простая вещь - в памяти может остаца экземпляр класса и при вызове его еще раз могут возникать разные ошибки
  Вверх
Dynamic
Дата 5.8.2004, 11:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 372
Регистрация: 5.7.2004
Где: Салехард

Репутация: 12
Всего: 15
Цитата
Так надо ли в деструкторе вызывать Free для каждого члена класса
Еще раз говорю - НАДО. Все, что создается в конструкторе одного класса, должно быть уничтожено в его же деструкторе. А присвоение nil требуется, чтобы ты мог проверить существование объекта. В твоем случае:
Код
constructor TMyClass.Create();
begin
 inherited;
 if <какое-то условие> then
    Something := TSomething.Create else
    Something := nil;
end;

destructor TMyClass.Destroy;
begin
 if Something <> nil then
 begin
    Something.Free;
    Something := nil;
 end;
inherited;
end;


То же для inherited: ты не знаешь, какие объекты создаются предком твоего класса, соответственно ты должен дать ему возможность самому "почистить" за собой, т.е. вызвать его деструктор.


--------------------
Было бы о чем молчать, а уж что сказать – всегда найдется...
PM MAIL WWW   Вверх
Girder
Дата 5.8.2004, 12:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй 2
***


Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 31
Всего: 155
Цитата
Something := nil;
это здесь точно лишнее


--------------------
Как слышим, так и пишим.
Истина где-то там...
PM   Вверх
Guest
Дата 5.8.2004, 12:34 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Спасиба!
  Вверх
Dynamic
Дата 5.8.2004, 12:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 372
Регистрация: 5.7.2004
Где: Салехард

Репутация: 12
Всего: 15
Цитата(Girder @ 5.8.2004, 12:10)
Цитата
Something := nil;
это здесь точно лишнее

Сила привычки smile.gif


--------------------
Было бы о чем молчать, а уж что сказать – всегда найдется...
PM MAIL WWW   Вверх
Петрович
Дата 5.8.2004, 20:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 25
Всего: 55
Цитата
Сила привычки

Ну тогда уж вместо
Код
x.Free;
x := Nil;

Делай:
Код
FreeAndNil(x);

Проще и красивей smile.gif


--------------------
Все знать невозможно, но хочется
PM ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0458 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.