Просмотр адреса метода

void (__closure *Func)(int a);
ShowMessage(Func); /// не компилит

ShowMessage((int)&Func);

ShowMessage(*(int*)&Func);

ShowMessage(*((int*)&Func + 1));

    void* p = (void*&) Func;
    ShowMessage((int)p); // компилит, но такими вещами лучше не увлекаться...

void (__closure *Func)(int a);
ShowMessage((int)Func); /// не компилит
ShowMessage((int*)Func); /// не компилит

void PrintM(int a)
{
    ShowMessage(IntToStr(a)+"-int");
}
//---------------------------------------------------------------------------
void PrintM(void* a)
{
    ShowMessage(IntToStr((int)a)+"-void*");
}
////---------------------------------------------------------------------------
void PrintM(double a)
{
    ShowMessage(FloatToStr(a)+"-double");
}
////---------------------------------------------------------------------------
void PrintM(String a)
{
    ShowMessage(a+"-String");
}
//---------------------------------------------------------------------------
int i=3;
PrintM(i);
PrintM(&i);
int (__closure *Func1)(int a, int b);
PrintM(*(int*)&Func1); /// не красиво

template <class T>
class t_cursor_watcher
{
//...
    T *procs_provider;
//...
    void __fastcall( T::*base_class_proc )( ); // аналогичные указатели, но на функции-члены-класса
    bool __fastcall( T::*conditional_class_proc )( );
 
//...
    void __fastcall set_initials( int _base_interval, int _control_interval,
        RECT _margins, T *_procs_provider,
        void __fastcall( T:: *_base_class_proc )( ),
        int _base_check_mode = TCW_CM_EVERY_AND_CONTROL__NEGATIVE_CHECK,
        bool __fastcall( T:: *_conditional_class_proc )( ) = NULL,
        int _conditional_check_mode = TCW_CM_EVERY_AND_CONTROL__POSITIVE_CHECK );

    if ( cursor_detected && base_control_check && cond_control_check ) {
        if ( use_class_procs ) {
            ( procs_provider->*base_class_proc )( );
        }
        else {
            base_proc( );
        }
        return;
    }

void PrintM(int a)
{
    ShowMessage(IntToStr(a)+"-int");
}
void PrintM(void* a)
{
    ShowMessage(IntToStr((int)a)+"-void*");
}
void PrintM(double a)
{
    ShowMessage(FloatToStr(a)+"-double");
}
void PrintM(String a)
{
    ShowMessage(a+"-String");
}
template <class T> void PrintM(T (__closure *Func)(void))
{
    ShowMessage(IntToStr(*(int*)&Func) + "-met0");
};
template <class T, class T1> void PrintM(T (__closure *Func)(T1 a))
{
    ShowMessage(IntToStr(*(int*)&Func) + "-met1");
};
template <class T, class T1, class T2> void PrintM(T (__closure *Func)(T1 a, T2 b))
{
    ShowMessage(IntToStr(*(int*)&Func) + "-met2");
};
int i=3;
PrintM(i);
PrintM(&i);
int (__closure *Func1)(int a, int b);
PrintM(Func1);