/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/patterns/patterns-is-recursive.pas
20 строк
370 B
Alexandr Pogorelov
Улучшение паттерн матчинга (#1949)
24 май 2019, 10:04
Не верифицирован
24 май 2019, 10:04
8a432ee
Код
Авторство
О чём код?
type Pair<T1, T2> = class _a: T1; _b: T2; procedure Deconstruct(var a: T1; var b: T2); begin a := _a; b := _b; end; end; begin var p := new Pair<integer, string>; p._a := 1; p._b := 'asd'; if p is Pair<integer, string>(integer(var a), string(var b)) then Assert((a = 1) and (b = 'asd')) else Assert(false); end.