blob: 38709d9be05e4d6c519e123d4d0ab1279cb615da (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{ %fail }
program IntfDel;
{$ifdef fpc}
{$mode objfpc}
{$endif fpc}
uses
Classes;
type
IA = interface
end;
TA = class(TObject, IA, IUnknown)
private
FUnknown: IUnknown;
property Unknown: IUnknown read FUnknown implements IUnknown;
end;
begin
end.
|
