fpcsrc/tests/tbs/tb0423.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

{$ifdef fpc}{$mode delphi}{$endif}

type
   tmethod = record
      code,data : pointer;
   end;

var
   p : procedure(l : longint) of object;

begin
   tmethod(p).data:=nil;
end.