fpc/tests/test/tinterface3.pp
2000-12-03 21:50:07 +00:00

13 lines
181 B
ObjectPascal

{ %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.