Простой TObject

← →
OlegMa1 (2007-10-19 14:12) [0]

Если я делаю свой простой класс - наследник от 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, что к чему?

← →
Сергей М. © (2007-10-19 14:18) [1]

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

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

← →
Ins © (2007-10-19 14:18) [2]

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

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

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

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

← →
Сергей М. © (2007-10-19 14:21) [3]

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

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

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

← →
OlegMa1 (2007-10-19 14:27) [4]

destructor TSimpleClass.Destroy; begin FStringList.Free; inherited Destroy; end;
... Применение: ... MySimpleClass := TSimpleClass.Create; MySimpleClass.Free;
Так для моего примера будет нормально?

← →
KSergey © (2007-10-19 14:30) [5]

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

Вроде да.

← →
Palladin © (2007-10-19 14:33) [6]

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

← →
Jump (2007-10-19 14:33) [7]

Не забудь:

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

← →
Jump (2007-10-19 14:34) [8]

Palladin © (19.10.07 14:33) [6]

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

← →
Palladin © (2007-10-19 14:37) [9]

> Jump (19.10.07 14:34) [8]

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

← →
OlegMa1 (2007-10-19 14:38) [10]

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

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

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

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

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

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

> TSimpleClass = class(TObject)

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

Простой TObject Найти похожие ветки