pascalabcnet/TestSuite/intellisense_tests/extensionmethods7.pas

8 lines
272 B
ObjectPascal
Raw Permalink Normal View History

2018-04-12 21:22:00 +03:00
function f1<T>(self:sequence of T); extensionmethod := self;
begin
2018-08-09 15:14:35 +03:00
var seq1 := Seq(0)
2018-04-12 21:22:00 +03:00
.f1&<integer>.Distinct{@(расширение sequence of T) function Distinct<integer>(): sequence of integer;@};
;
2018-08-09 15:14:35 +03:00
seq1{@var seq1: sequence of integer;@}.ToString();
2018-04-12 21:22:00 +03:00
end.