/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
CodeExamples/Patterns/patterns-user-defined.pas
24 строки
436 B
miks1965
fix #1409
21 окт 2018, 12:29
21 окт 2018, 12:29
987ab84
Код
Авторство
О чём код?
type Person = class name: string; age: integer; constructor(name: string; age: integer); begin self.name := name; self.age := age; end; procedure Deconstruct(var name: string; var age: integer); begin name := self.name; age := self.age; end; end; begin var p := new Person('Петр', 25); if p is Person(var name, var age) then Println(name, age); end.