/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/LanguageFeatures/Pattern Matching/UserDefinedDeconstructAsExtension.pas
20 строк
456 B
miks1965
fix #1409
21 окт 2018, 12:29
21 окт 2018, 12:29
987ab84
Код
Авторство
О чём код?
// Деконструктор как метод расширения procedure Deconstruct(Self: integer; var a: integer; var b: integer); extensionmethod; begin a := Self div 10; b := Self mod 10; end; begin var i := 25; if i is integer(var a, var b) then Println(a,b); i := 9; match i with integer(a,b) when i>=10: Println(a,b); integer(a): Println(a); // деконструктор по умолчанию end; end.