オーバーロードメソッドのアドレス位置の取得

Question

オーバーロードされた関数/プロシージャ/メソッドのすべてのアドレス位置を取得するにはどうすればよいですか？

たとえば、Dialogs.MessageDlgPosHelpには2つの異なるバージョンがあります.1つはデフォルトボタンなし、もう1つはオーバーロードされています。どのようにして2つの機能のアドレス位置を取得できますか？

Answer 1

this threadとそれに基づいてThomas Muellerが指定されているため、（オーバーロードごとに）取得するアドレスのメソッドと同じシグネチャでタイプを定義することができます。これらの型の変数を宣言してメソッドポインタを代入すると、コンパイラは既知の変数型に適切なオーバーロードを選択し、コード内のどこでも使用されない場合には無視しません（いくつかのオーバーロードはあなたのバイナリにリンクされないかもしれません）。

だから、このようなMessageDlgPosHelp関数のオーバーロードを探し、彼の考え方にありますベース：

type 
    TMessageDlgPosHelp1 = function(const Msg: string; DlgType: TMsgDlgType; 
    Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer; 
    const HelpFileName: string): Integer; 
    TMessageDlgPosHelp2 = function(const Msg: string; DlgType: TMsgDlgType; 
    Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer; 
    const HelpFileName: string; DefaultButton: TMsgDlgBtn): Integer; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    MessageDlgPosHelp1: TMessageDlgPosHelp1; 
    MessageDlgPosHelp2: TMessageDlgPosHelp2; 
begin 
    MessageDlgPosHelp1 := MessageDlgPosHelp; 
    MessageDlgPosHelp2 := MessageDlgPosHelp; 
    ShowMessage(Format('%p; %p', [@MessageDlgPosHelp1, @MessageDlgPosHelp2])); 
end; 

Answer 2

また、あなたは別の名前を持つ単純な方法として、このオーバーロードメソッドを公開します派生クラスを作成することができ、任意のインスタンスをキャストそのクラスを新しいクラスに変換し、ラッパーメソッドのアドレスを簡単に使用します。