fpcsrc/tests/tbs/tb0403.pp


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

{$mode objfpc}

type
  tclass = class
    procedure t; virtual;
  end;

procedure tclass.t;
begin
end;

var
  p: pointer;
begin
  p := @tclass.t;
end.