任意の型でGetEnumeratorを呼び出す方法は？

Question

私はデータのリストを表示できるはずのコントロールを作成しています。私がしたかったのは、CurrentプロパティとMoveNextメソッドを含むパブリックGetEnumerator関数をチェックするという点でfor-inコンストラクトを模倣することでした。

私は次のことを決定しました：

1. 私は単に私のオブジェクトにMethodAddressを呼び出すことにより、方法のexistanceを確認することができます。アドレスを取得した場合、メソッドが存在します。
2. RTTIを使用してメソッドの戻り値の型をチェックできます。
3. RTTIを使用して、プロパティをチェックして読み込むことができます。イン間

しかし、私は情報の小さなビットをしないのです：

1. はどのようにして、そのアドレス指定された、メソッドを呼び出していますか？私はちょうど定義を書いていますか（私は輸入品のようです）、アドレスをキャストして呼び出しますか？
2. メソッドの戻り値の型を調べるには、そのPTypeInfoでGetTypeDataを呼び出す必要があります。 PTypeInfoはTypeでTypeInfoを呼び出して取得します。だから、そのメソッドのPTypeInfoを取得するには、そのアドレスだけを与えますか？

Answer 1

1. は、メソッドを呼び出すには、あなたが取ります返されたアドレスを取得し、TMethodのコードポインタに置きます。オブジェクトをデータポインタに置き、正しいシグネチャを持つメソッドポインタにキャストします。
2. 関数のシグネチャを分析するには、かなり複雑なRTTIが必要です。詳細については、http://hallvards.blogspot.com/2006/05/hack-10-getting-parameters-of.htmlを参照してください。

なお、この唯一の作品 インスタンス（またはそのコンポーネントの1つ） も公表性質を持っている場合に発表された方法に ポイント：しかし、底部に向かっ警告に注意してください。 良いニュースは、これが の既存の公開されたメソッドの場合です - をTForm インスタンスのイベントハンドラと同じです。悪いことに、この は、実行中に 公開メソッド（ ）を動的に呼び出すことはできません（従って、 はイベントに割り当てられません）。

あなたのやっていることは、現在のRTTIモデルでは不可能かもしれません。しかし、Delphi 2010ではRTTIシステムが拡張されていて、これをもっと簡単にやり遂げることができるようになっています.RSNが予定されています。 （Embarcaderoのサイトには、今夜真夜中に向かってカウントダウンしていたリリースカウントダウンがありました。彼らはそれを取り下げてしまったので、まだ公式のリリース日であるかどうかは分かりません）

Answer 2

最初に、RTTIは公開されたプロパティとメソッドでのみ使用できることに注意してください。

MethodAdressによって取得メソッドを呼び出すには、単に実行します。

TMyMethod = procedure (Self : TObject; const Param : String); 
... 
var 
    MyMethod : TMyMethod; 
... 
MyMethod := Obj.MethodAdress ('MethodName'); 
if Assigned (MyMethod) then 
    MyMethod (Obj, 'Hallo'); 

あなたの2番目の質問については、これは役立つかもしれない：

Link