fpcsrc/tests/webtbf/tw11295b.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

{ %fail }
program IntfDel;

{$ifdef fpc}
{$mode objfpc}
{$endif fpc}

uses
  Classes;

type
  IA = interface
  end;
  IB = interface(IA)
  end;

  TA = class(TObject, IA, IB)
  private
    FA: IA;
    property A: IA read FA implements IA;
  end;

begin
end.