/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/LanguageFeatures/Pattern Matching/MatchDelegate.pas
12 строк
372 B
miks1965
fix #1409
21 окт 2018, 12:29
21 окт 2018, 12:29
987ab84
Код
Авторство
О чём код?
begin var s: real->real := x -> x * x; var add: (real,real)->real := (x, y)-> x + y; // Делегат может хранить процедурную переменную любого типа! var d: System.Delegate := s; d := add; match d with Func<real, real>(var i): Print(i(2)); Func2<real, real, real>(var i): Print(i(2,3)); end; end.