오버로드 메서드의 주소 위치 얻기

Question

오버로드 된 함수/프로 시저/메서드의 모든 주소 위치를 얻으려면 어떻게해야합니까?

예를 들어, Dialogs.MessageDlgPosHelp에는 두 가지 버전이 있습니다. 하나는 기본 버튼이없고 다른 하나는. 두 기능에 대한 주소 위치는 어떻게 얻을 수 있습니까?

Answer 1

this thread을 기준으로하고 주소가 Thomas Mueller 인 경우 주소를 얻고 자하는 메소드 (각 오버로드에 대해)와 동일한 시그니처로 유형을 정의 할 수 있습니다. 그런 다음 해당 유형의 변수를 선언하고 메소드 포인터를 할당하면 컴파일러가 알려진 변수 유형에 적합한 오버로드를 선택하고 코드의 어느 곳에서나 사용되지 않으면 무시합니다 (일부 오버로드는 바이너리에서 링크되지 않을 수도 있습니다).

또한

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

당신은 다른 이름과 간단한 방법으로이 오버로드 방법을 노출됩니다 파생 클래스를 생성의 인스턴스를 캐스팅 할 수는 수도 자신의 아이디어를 기반으로

그래서이 같은 MessageDlgPosHelp 기능 과부하를 찾습니다 해당 클래스를 새 클래스에 추가하고 래퍼 메서드의 주소를 쉽게 사용할 수 있습니다.