Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Простой TObject [D7, 2003]


OlegMa1 ©   (2007-10-19 14:12:00) 

Если я делаю свой простой класс - наследник от TObject, то нужно ли мне в собственных конструкторе и деструкторе вызывать inherited предка?

TSimpleClass = class(TObject)
private
 FStringList: TStringList;
public
 constructor Create;
 destructore Free;
end;

constructor TSimpleClass.Create;
begin
 // inherited?
 FStringList := TStringList.Create;
end;

destructor TSimpleClass.Free;
begin
 FStringList.Free;
 //inherited Free? или Destroy?
end;


И ещё вопрос, чем отличается Free от Destroy: я так понял что первый перед тем как вызвать Destroy проверяет ссылку самого себя на nil, но что-то я не понимаю смысла всего этого, например когда вызывать Free а когда Destroy, что к чему?


Kolan   (2007-10-20 08:40:00) [1]

> TSimpleClass = class(TObject)

Автор, кстати TObject можно не писать, те:
TSimpleClass = classи сё.


Kolan   (2007-10-20 08:38:00) [2]

> Вплоть до D7 — не нужно.

Поподробнее плз…, что псле D7 нужно в конструкторе вызывать inherited?


Ins   (2007-10-19 14:39:00) [3]


> но отчего же такое предуперждение не возникает для Create?

А он и невиртуальный. Create в TObject - статический метод.


Palladin   (2007-10-19 14:39:00) [4]

потому что Create не обязан быть виртуальным, соответственно предыдущую реализацию он не скрывает, вот переопределяет - это да


OlegMa1   (2007-10-19 14:38:00) [5]

Хорошо, напомнили про override, без него получал предупреждение:
[Warning] Method 'Destroy' hides virtual method of base type 'TObject', но отчего же такое предуперждение не возникает для Create?


Palladin   (2007-10-19 14:37:00) [6]


> Jump   (19.10.07 14:34) [8]

монопенисуально, нет смысла приравнивать идентификатор объекта являющегося полем уничтожаемого объекта к Nil


Jump   (2007-10-19 14:34:00) [7]

Palladin ©   (19.10.07 14:33) [6]

А можно мне, в виде исключения, пользоваться FreAndNil()? А? Ну пожалуйста...


Palladin   (2007-10-19 14:33:00) [8]

при освобождении агрегируемого объекта в деструкторе владельца нужно взять за правило всегдапользоваться Free


Jump   (2007-10-19 14:33:00) [9]

Не забудь:

TSimpleClass = class(TObject)
public
 destructor Destroy; override;
end;


KSergey   (2007-10-19 14:30:00) [10]

> OlegMa1   (19.10.07 14:27) [4]
> Так для моего примера будет нормально?

Вроде да.


OlegMa1   (2007-10-19 14:27:00) [11]

destructor TSimpleClass.Destroy;
begin
FStringList.Free;
inherited Destroy;
end;


...
Применение:
...
MySimpleClass := TSimpleClass.Create;
MySimpleClass.Free;

Так для моего примера будет нормально?


Сергей М.   (2007-10-19 14:21:00) [12]


> когда вызывать Free а когда Destroy


Free следует вызывать для неявной проверки ссылки на <> nil перед неявным же вызовом Destroy.

Явно вызывать Destroy следует только явно убедившись, что ссылка <> nil.


Сергей М.   (2007-10-19 14:18:00) [13]


> нужно ли мне в собственных конструкторе и деструкторе вызывать
> inherited предка?


Вплоть до D7 - не нужно.


Ins   (2007-10-19 14:18:00) [14]


> то нужно ли мне в собственных конструкторе и деструкторе
> вызывать inherited предка?

В принципе не обязательно, так как в предке эти методы пустые, но лучше вызывать, вдруг в будущих версиях это будет не так.


> например когда вызывать Free а когда Destroy, что к чему?

Вызывать - Free, перекрывать - виртуальный Destroy


Наверх

Титульная страница Поиск, карта сайта Написать письмо