Konwersja wskaźnika metody na liczbę całkowitą, a następnie wywołanie go

Question

Zastanawiam się, czy to jest możliwe, czy nie, jeśli tak, to w jaki sposób? Proszę podać przykład kodu.

• Jak przechowywać wskaźnik do metody obiektu jako wartość całkowitej?
• Jak przekonwertować tę liczbę całkowitą z powrotem na "wskaźnik metody" i nazwać to?

Co chcę zrobić, to zapisać "wskaźnik metody" w całkowitej wartości znacznika obiektu pochodnego TComponent, a czasem później wywołać metodę zapisaną. Możesz założyć, że wszystkie spełnione metody mają tę samą definicję.

Dzięki!

Answer 1

Można zrobić obejście, ale nie Si ładny design ...

var 
    Method: ^TNotifyEvent; 
begin 
//Create New method 
    GetMem(Method, SizeOf(TNotifyEvent)); 
//Init target Tag 
    Tag := Integer(Method); 

//Store some method 
    Method^ := Button1Click; 

//call stored method 
    Method := (Pointer(Tag)); 
    Method^(self); 

//And don't forget to call in to object destructor... 
    if Tag <> 0 then 
    FreeMem(pointer(Tag)); 

Answer 2

Nie, to niemożliwe. Metoda obiektu jest równoważne TMethod:

TMethod = record 
    Code, Data: Pointer; 
end; 

Pole Code jest adres metody, a pole Data jest ukryty Self parametr, który jest przekazywana do każdej metody obiektu. Rekord ma ten sam rozmiar co Int 64, więc jeśli rzucisz go jako zwykłą liczbę całkowitą, stracisz połowę.

Możesz przydzielić rekord TMethod na stercie za pomocą GetMem, a następnie zapisać jego adres w właściwości Tag, o ile pamiętasz, aby zwolnić go po zakończeniu pracy.