1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
{ %norun } {$mode delphi} type tc = class type tnest = class end; end; td = class(tc) type tnest = class(tc.tnest) end; end; begin end.