tests/test/tinterface3.pp


1
2
3
4
5
6
7
8
9
10
11
12

{ %VERSION=1.1 }

{$mode objfpc}
type
  IMyInterface = interface
    function f : longint;
    procedure p(a : longint);
    property x : longint read f write p;
  end;

begin
end.