delphi – 为什么会出现内存泄漏以及如何修复它？

unit Unit7;

interface

uses Classes;

type
  TListener = class(TThread)
    procedure Execute; override;
  end;

  TMyClass = class
    o1,o2: Tobject;
    procedure FreeMyObject(var obj: TObject);
    constructor Create;
    destructor Destroy; override;
  end;

implementation

uses Windows,SysUtils;

var l: TListener;
    my: TMyClass;

procedure TListener.Execute;
var msg:TMsg;
begin
  while(GetMessage(msg,Cardinal(-1),0)) do
    if(msg.message=6) then begin
      TMyClass(msg.wParam).FreeMyObject(TObject(msg.lParam));
      Exit;
    end;
end;

constructor TMyClass.Create;
begin
  inherited;
  o1:=TObject.Create;
  o2:=Tobject.Create; // Invalid pointer operation => mem leak
end;

destructor TMyClass.Destroy;
begin
  if(Assigned(o1)) then o1.Free;
  if(Assigned(o2)) then o2.Free;
  inherited;
end;

procedure TMyClass.FreeMyObject(var obj: TObject);
begin
  FreeAndNil(obj);
end;

initialization
  l:= TListener.Create();
  my:=TMyClass.Create;

  sleep(1000); //make sure the message loop is set
  PostThreadMessage(l.ThreadID,6,Integer(my),Integer(my.o2));
finalization
  l.Free;
  my.Free;
end.

我使用消息处理程序来说明我的问题,以便您理解它.真正的设计要复杂得多.函数’FreeMyObject’实际上是Frees AND使用多态范例创建一个实例,但这不是必需的.我只想指出设计应该保持不变.

现在问题和问题 – 为什么会发生以及如何解决它？似乎’如果Assigned(o2)’不适合它.

我的想法：发送一个指向my.o2的指针将自由和nil o2我尝试这样做,但我无法在消息处理程序中从指针转换为对象,不知道为什么.

有人可以伸手吗？谢谢