Почему Destroy не называется?

Question

Учитывая следующий Delphi код, Foo является Free «D на FormClose, но TFoo.Destroy не вызывается - и поэтому Bar не Free» d, что приводит к утечке памяти?

Пропустил ли я что-то здесь или не должен Foo.Free.Free.Foo.Destroy в какой-то момент?

type 
    TBar = class 
    SomeInteger : integer; 
end; 

TFoo = class 
    Bar : TBar; 

    constructor Create(); 
    destructor Destroy(); 
end; 

var 
    Foo : TFoo; 

implementation 

constructor TFoo.Create; 
begin 
    Bar := TBar.Create; 
    Bar.SomeInteger := 2; 
end; 

destructor TFoo.Destroy; 
begin 
    Bar.Free; 
    Bar := nil; 

    showmessage('Destroyed!'); 
end; 

procedure TForm10.FormCreate(Sender: TObject); 
begin 
    Foo := TFoo.Create; 

    showmessage('Foo created'); 
end; 

procedure TForm10.FormDestroy(Sender: TObject); 
begin 
    Foo.Free; 
    Foo := nil; 
end; 

Answer 1

Вы должны пометить подпись деструктора с переопределением.

destructor Destroy(); override; 

И вы должны иметь inherited в конце деструктора. Но поскольку ваш класс не получен ни от чего, кроме TObject, я подозреваю, что это не имеет значения.

Answer 2

Уничтожить виртуально, и поэтому вы должны переопределить его в своем классе потомков.

TFoo = class 
    Bar : TBar; 

    constructor Create(); 
    destructor Destroy(); override; // must add override here 
end; 

Без переопределения деструктор никогда не вызывается, а вместо него используется базовый класс.