/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
CodeExamples/Patterns/patterns-user-defined-ext.pas
14 строк
295 B
miks1965
Пример Deconstruct как статического метода
21 окт 2018, 10:03
21 окт 2018, 10:03
6231382
Код
Авторство
О чём код?
// Деконструктор как метод расширения 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); end.