Question

如何获取重载的函数/过程/方法的所有地址位置？

例如，Dialogs.MessageDlgPosHelp有两个不同版本的重载 - 一个没有默认按钮，另一个没有。我如何获得这两个函数的地址位置？

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

此外，您可以创建派生类，将此重载方法公开为具有不同名称的简单方法，将该类的任何实例强制转换为新类，并轻松使用包装器方法的地址。

获取重载方法的地址位置

2 个答案: