レコードをパラメータとして使用するイベントを含むレコードを宣言する方法

Question

レコードと、互いに使用するいくつかのオブジェクトイベントを宣言する方法を理解しようとしています。問題はどのように宣言しても、私は「宣言されていない識別子」を持っています。

以下のコードでは、それらをお互いに使うことができますか？イベントはオブジェクトで使用され、レコードはオブジェクトのコンストラクタに渡されて使用されます。

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

    TMyRecord = record 
    OnMyEvent: TMyEvent; 
    end; 

これは可能ですか？ Delphi 7以上のすべてのバージョンで動作する必要があります。私の知っている唯一の方法は、ポインタを使用することですので

Answer 1

残念ながら、前方宣言は唯一、クラスではなく、レコードのために許可されています。

PMyRecord = ^TMyRecord; 

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

TMyRecord = record 
    OnMyEvent: TMyEvent; 
end; 

Answer 2

あなたはより多くの最近のDelphiのバージョンを使用している場合は、型を宣言することができますレコード内。あなたのイベントからレコードを参照する方法は次のとおりです。

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