pascalabcnet/TestSuite/intellisense_tests/generics7.pas

3 lines
154 B
ObjectPascal
Raw Permalink Normal View History

2018-04-19 22:05:47 +03:00
begin
''.Select{@(расширение sequence of T) function Select<char,TResult>(selector: char->TResult): sequence of TResult;@}(x->Ord(x));
end.