メソッドポインタを整数に変換してから呼び出す

Question

これは次のことが可能かどうか、もしそうなら、どうすればいいのでしょうか？コード例をお願いします。 整数値としてオブジェクト方法ポインタを格納する方法

• ？
• その整数値を 'メソッドポインタ'に変換する方法とと呼びますか？

私がしたいのは、TComponent派生オブジェクトの整数タグ値に「メソッドポインタ」を格納し、後でそのメソッドを呼び出します。すべてのmetメソッドが同じ定義を持つと仮定できます。

ありがとうございます！

Answer 1

あなたは回避策を行うことができますが、それは素敵なデザインをSIではない...

var 
    Method: ^TNotifyEvent; 
begin 
//Create New method 
    GetMem(Method, SizeOf(TNotifyEvent)); 
//Init target Tag 
    Tag := Integer(Method); 

//Store some method 
    Method^ := Button1Click; 

//call stored method 
    Method := (Pointer(Tag)); 
    Method^(self); 

//And don't forget to call in to object destructor... 
    if Tag <> 0 then 
    FreeMem(pointer(Tag)); 

Answer 2

いいえ、不可能です。オブジェクトのメソッドがTMethodと同等です：

TMethod = record 
    Code, Data: Pointer; 
end; 

Codeフィールドは、メソッドのアドレスであり、そしてDataフィールドは、すべてのオブジェクトのメソッドに渡された隠しSelfパラメータです。レコードはInt64と同じサイズなので、整数型としてキャストすると、その半分が失われます。

GetMemを使用してヒープにTMethodレコードを割り当ててから、そのタグのアドレスをTagプロパティに格納することができます。