[Delphi] Pointery na metody

[Toster]

Hejka,

W sumie to nie pytanie (bo juz rozwiazalem problem) ale bardziej zagadka/ciekawostka.

 

Problem:

Mamy klase np TMojaKlasa ktora ma pole typu TProcedurka, czyli kodzik:

 

type 
  TProcedurka = procedure(const x,y: integer) of object;

TMojaKlasa=class
  fpocka: TProcedurka;
end;

+^Ź6\"zIZą\"z:hŚ)Q-ąą(
QĄąŃ)()(QĄ-ąQ-ą(z\"('+Z'^bppf FDŚśĆ6Ś&VvFTG'VvśĆ6ŁDG'VvśĆ67&VFSFŁDŚśĆ67&VFSFćg6śŁFTG'VvśĆ665FÓ

[Force]

rzutować na Pointer i sprawdzić czy takie samo wychodzi?

[Toster]

nie ?

[KKKas]

Mi się udało tylko tak:

var
 p: TProcedurka;
begin
 p := TheDrugaKlasa.CosTam;
 if Addr(tmp.fpocka) = Addr(p) then OK;zZaYYJHHYRKY]YĘ       N[INĘH[

Ale w tym drugim przypadku metoda CosTam musi być albo w sekcji published albo jej dekleracja powinna być pomiędzy {$M+}...{$M-}

[Toster]

No ja cos podobnego uzylem ale jakos srednio mi sie to podoba

 

 p1 := TheShapeMgr.MouseDown;
 if @p1 = @TheEventsMgr.OnMouseDown then OK