delphi - 释放对象的无效指针操作

Question

作为 OOP 新手，我很好奇为什么 Delphi XE7 在我尝试释放它时在我正在使用的日志类上生成了无效的指针操作。所以我创建了一个简单的测试来创建一个对象然后释放它。我不确定我在这里缺少什么以及为什么在调用 MyObject.Free 时它会抛出此异常。

在第一个单元中，我创建了该对象的一个​​实例，如下所示。

unit Unit1;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Unit2;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MyObject: TMyObject;

implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyObject := TMyObject.Create;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  MyObject.Free;
end;

end.

在第二单元中，我定义的对象如下。

unit Unit2;
interface
uses System.Classes;

  type
  TMyObject = class
  public
    constructor Create;
    destructor Free;
  end;

implementation

constructor TMyObject.Create;
begin
  inherited Create;
end;

destructor TMyObject.Free;
begin
  inherited Free;
end;

end.

感谢任何帮助。

Answer 1

始终通过重写名为 Destroy 的虚拟析构函数来实现析构函数。

type
  TMyObject = class
  public
    constructor Create;
    destructor Destroy; override;
  end;

constructor TMyObject.Create;
begin
  inherited;
end;

destructor TMyObject.Destroy;
begin
  inherited;
end;

要销毁实例，请调用 TObject 中名为 Free 的方法。仅当实例不为 nil 时，才会调用虚拟析构函数 Destroy。

从文档中了解更多信息:

• http://docwiki.embarcadero.com/Libraries/en/System.TObject.Free
• http://docwiki.embarcadero.com/Libraries/en/System.TObject.Destroy

名称MyObject 很弱。对象用于实例。类用于类。