FreeAndNil, пожалуйста, еще раз.

← →
Наивный (2012-08-11 11:20) [0]

XE2, W7:
type TTestClass = class(TObject) private Mem:Pointer; public constructor Create; procedure Free; end; constructor TTestClass.Create; begin inherited Create; GetMem(Mem,1024); end; procedure TTestClass.Free; begin FreeMem(Mem); inherited Free; end; var Obj:TTestClass; begin Obj:=TTestClass.Create; FreeAndNil(Obj); // !? end.

Почему не происходит вызов TTestClass.Free
или как сделать правильно?

← →
sniknik © (2012-08-11 11:46) [1]

> Почему не происходит вызов TTestClass.Free
потому как это простая, на виртуальная и т.д. процедура.

> или как сделать правильно?
перекрывать деструктор
destructor Destroy; override;

← →
turbouser © (2012-08-11 12:08) [2]

Зачем такие извращения?

← →
Наивный (2012-08-11 12:15) [3]

Спасибо.

Получается, нужно освобождать ресурсы в своем перекрытом Destroy.?
Но тогда зачем же красноречивая процедура Free и рекомендации даже ее не использовать в коде непосредственно?

← →
Наивный (2012-08-11 12:17) [4]

> Зачем такие извращения?
это к FreeAndNil(Obj);
или к destructor Destroy; override;

← →
turbouser © (2012-08-11 12:23) [5]

> это к FreeAndNil(Obj);

Free.
Много раз уже обсуждалось.

← →
AV © (2012-08-11 13:29) [6]

procedure FreeAndNil(var Obj);
var
Temp: TObject;
begin
Temp := TObject(Obj);
Pointer(Obj) := nil;
Temp.Free;
end;

procedure TObject.Free;
begin
if Self <> nil then
Destroy;
end;

← →
Наивный (2012-08-11 14:33) [7]

> AV © (11.08.12 13:29) [6]
Да, я это видел, но у меня, наверное, пробел в понимании ООП, поскольку подумал, что Temp.Free; запустит вначале мой TTestClass.Free; в котором и будет дополнительная обработка ситуации когда Self=nil, - а уж потом я запущу inherited Free;, "фишка" которого в маскировании проблемы или вызове деструктора.

Думаю, если бы FreeAndNil была такой:
procedure FreeAndNil(var Obj); var Temp: TObject; begin Temp:=InterlockedExchangePointer(Pointer(Obj),nil); if Temp<>nil then Temp.Destroy // ! else // Ахтунг! Вы разрушаете вакуум!!! end;
понимание и ценность ее использования была бы выше.

> turbouser © (11.08.12 12:23) [5]
>Free.
>Много раз уже обсуждалось.

Вот поэтому я и засомневался, но, спасибо, ненадолго. (теперь я сомневаюсь еще больше :))

← →
turbouser © (2012-08-11 14:44) [8]

> Наивный (11.08.12 14:33) [7]

Нет повода для сомнений.
Но если параноидально хочется удостовериться в освобождении ресурсов - освобождай вручную, никто не запрещает.

← →
Давайте будем жрать! (2012-08-11 15:43) [9]

> подумал, что Temp.Free; запустит вначале мой TTestClass.
> Free
Она о TTestClass.Free ничего не знает. Free — метод статический (и это хорошо), так что при вызове TObject(Obj).Free будет вызван Free именно из TObject. А уже из TObject.Free будет вызван правильный деструктор, который виртуальный.

← →
Юрий Зотов © (2012-08-11 16:00) [10]

> Наивный (11.08.12 14:33) [7]

> у меня, наверное, пробел в понимании ООП

Есть немного. Вам нужно понять разницу между статическими и виртуальными/динамическими методами.

> поскольку подумал, что Temp.Free; запустит вначале мой TTestClass.Free

Так было бы, если бы метод TObject.Free был виртуальным (или динамическим). А он статический, поэтому процедура Free вызывает TObject.Free, а не Ваш.

← →
Наивный (2012-08-11 16:36) [11]

[9], [10] , да понемногу ситуация проясняется, спасибо.
А виртуальный/динамический - синонимы или есть различия?

[9]
> А уже из TObject.Free будет вызван правильный деструктор, который виртуальный.
Значит, правильно - не использовать (совсем?) в своих классах Free, а переопределить деструктор?

[8]
> Но если параноидально хочется удостовериться в освобождении ресурсов
Нет-нет, но все-таки, что подразумевает >освобождай вручную ?

> Наивный (11.08.12 16:36) [11]

> Нет-нет

destroy
:=nil
etc

> Наивный (11.08.12 16:36) [11]
>
> [9], [10] , да понемногу ситуация проясняется, спасибо.
>
> А виртуальный/динамический - синонимы или есть различия?
>
>

F1

← →
Наивный (2012-08-11 17:52) [14]

> turbouser © (11.08.12 16:41) [13]
>> А виртуальный/динамический - синонимы или есть различия?

>F1 -> Generally, use virtual methods. -> Ok.

О, а тут еще и class constructor, class destructor - буду осваивать.

> О, а тут еще и
> 1
>
> class constructor, class destructor

А вот это самое главное в данном вопросе. Тут уже ясно сказано где создавать и где уничтожать.

FreeAndNil, пожалуйста, еще раз. Найти похожие ветки