如何声明包含使用记录作为参数的事件的记录

Question

我试图弄清楚如何声明一条记录和一些相互使用的对象事件。问题是无论我以哪种方式声明它们，我都有一个“未声明的标识符”。

那么通过下面的代码，我可以让它们互相使用吗？事件将在对象中使用，记录将被传递并使用到对象的构造函数中。

  TMyEvent = procedure(Sender: TObject; var Rec: TMyRecord) of object;

  TMyRecord = record
    OnMyEvent: TMyEvent;
  end;

这可能吗？它需要在 Delphi 7 及更高版本的所有版本中工作。

Answer 1

如果您使用的是较新的 Delphi 版本，则可以在记录中声明类型。您可以通过以下方式引用活动记录：

type
  TMyRecord = record
  public type
    TMyEvent = procedure (Sender: TObject; var Rec: TMyRecord) of object;
  public
    OnMyEvent: TMyEvent;
  end;

Answer 2

不幸的是，前向声明只允许用于类，而不允许用于记录，所以我知道的唯一方法是使用指针：

PMyRecord = ^TMyRecord;

TMyEvent = procedure(Sender: TObject; Rec: PMyRecord) of object;

TMyRecord = record
  OnMyEvent: TMyEvent;
end;