/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
CodeExamples/Patterns/patterns-collection-matching1.pas
43 строки
801 B
Mikhalkovich Stanislav
Invoke -> Redraw в GraphWPF и WPFObjects
05 авг 2019, 00:23
05 авг 2019, 00:23
bd52663
Код
Авторство
О чём код?
type CardInfo = auto class public cardNumber: string; cv: integer; end; Person = class public name: string; age: integer; card: CardInfo; constructor(name: string; age: integer; card: CardInfo); begin self.name := name; self.age := age; self.card := card; end; procedure Deconstruct(var name: string; var age: integer; var card: CardInfo); begin name := self.name; age := self.age; card := self.card; end; end; begin var a := Arr(1, 9, 8, 7, 2, 3, 4, 5); // Расширенный is if a is [1, .., var x, _, 5] then Println(x); // match .. with match a with [1, 9, 8, _, 2]: Print(1); [.., var y, var x]: Print(x + y); [_, .., _]: Print(3); end; end.