/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/errors/err0292.pas
17 строк
277 B
miks1965
fix #1409
21 окт 2018, 12:29
21 окт 2018, 12:29
987ab84
Код
Авторство
О чём код?
type Person = auto class name: string; age: integer; class procedure Deconstruct(var age: integer); begin age := 666; end; end; begin var p := new Person('Иванов',20); if p is Person(var age: integer) then Print(name); end.