1 2 3 4 5 6 7 8 9 10 11 12
type tproc = procedure(self,l2:longint); procedure p(l1,l2:longint); begin end; var pv : tproc; begin pv:={$ifdef fpc}@{$endif}p; end.