pascalabcnet/TestSuite/intellisense_tests/extensionmethods3.pas

7 lines
151 B
ObjectPascal
Raw Permalink Normal View History

2017-08-13 19:45:34 +03:00
function f<T>(x: sequence of T): T;
begin
end;
begin
f&<real>(Arr(1,2,3)).Round{@(расширение) function real.Round(): integer;@}();
end.