Question

鉴于以下戴尔菲代码, Foo 是 free d on FormClose ,但 TFoo.Destroy 没有被调用,因此, Bar 不是 Free d,导致内存泄漏?

我是不是漏掉了点什么或者应该免费打给Foo 某个时候被摧毁了?

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;

您应该在毁灭器末端有 < code> 内含 < / code > 。但是由于您的班级不是来自其它东西, 而是来自“ 诱饵 ”, 我怀疑这无关紧要。

Answer 2

毁灭是虚拟的, 因此,你必须超越它在你的后代阶级。

TFoo = class
  Bar : TBar;

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

没有重置,你的毁灭器就永远不会被调用, 而基级一则被调用。

友情链接