fpc/tests/test/tinterface3.pp
2024-10-31 22:35:04 +01:00

12 lines
164 B
ObjectPascal

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