Delphiのオブジェクト代理人の共通の祖先

Question

of object句で宣言されているDelphi代理人の共通の祖先はありますか？

私はTNotifyEventと私のカスタムデリゲートのための共通の祖先を見つける必要がある：

TMyEvent = procedure(Sender: TObject; msg: stringh); of object; 

これらのイベントを発射するための普遍的な方法を作ること。

ポインタを使用する必要がありますか？またはTObject？

Answer 1

method pointersの実装の詳細については、ダウンして汚れている必要があります。これらは、いわゆるダブルポインタ値として格納されます。メソッド呼び出しの対象（インスタンス）のための1つのポインタと、メソッド自体（コード）のための1つのポインタ。

SystemのタイプTMethodを使用してメソッドポインタを表すことができます。その宣言は、（簡単にするために取り外さ比較演算子を）ので次のようになります。

type 
    TMethod = record 
    Code, Data: Pointer; 
    end; 

あなたは、これらのタイプの間の割り当てを行うために型キャストを使用する必要があります。

uses 
    System.Classes; 

var 
    Event: TNotifyEvent; 
    Method: TMethod; 

begin 
    Method := TMethod(Event); 
    TMethod(Event) := Method; 
end. 

明らかにこれのどれもが、タイプセーフではありませんあなたは正確さを保証する必要があります。コンパイラはあなたを助けることはできません。チェックポインター型変換演算子asのように、メソッドポインターを処理するものはありません。つまり、TMethodから特定のメソッドのポインタ型にキャストするときは、TMethodインスタンスが実際にキャストするメソッドのポインタ型のインスタンスであることを確認する必要があります。このプロセス全体を、型付きポインタから型なしポインタへのキャストに類似していると考えてください。

TMethodインスタンスに任意のメソッドポインタを格納する場合は、これで問題ありません。しかし、その後、これらのメソッドを起動する必要がある場合はどうなりますか。各TMethodインスタンスの背後にあるメソッドポインタのタイプを知る必要があります。どのようにキャストするのか、どのような議論が必要なのか、それをどのように呼び出すのかを知ることができます。これは、メソッドの真の型について、生のメソッド自体のほかに、余分な情報を格納しなければならないことを意味します。

私は多分、あなたが質問した質問に答えたと思いますが、それはあなたにとって大いに役立つとは思っていません。あなたが達成しようとしていることとあなたが持っている情報についていつもっと知る必要があると思うかを理解するために。

たとえば、メソッドを格納する必要があるときにメソッドに渡す引数が分かっている場合は、変数キャプチャを使用して匿名メソッドでラップすることができます。それはあなたが型安全性を保持し、私が上に示したむしろ疑わしいキャストを避けることができます。おそらくあなたはpartial applicationが必要です。これは、同種のメソッドポインタが同じインタフェースを持つようにするための手段です。この場合も、匿名の方法が役立ちます。