fpcsrc/tests/test/tclrprop.pp


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

{$mode delphi}

type
  tc = class
  end;

  tcc = class of tc;

  tc1 = class
   private
    fa: tcc;
   published
    property pa: tcc read fa write fa;
  end;

begin
end.