/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/patterns/patterns-is-var-lambda.pas
13 строк
274 B
Александр Погорелов
fix #902, fix #1306
15 июн 2019, 12:15
15 июн 2019, 12:15
5c89b74
Код
Авторство
О чём код?
begin var f: object->string; f := o-> begin if o is string(var s) then Result := s else Result := o=nil?'nil':o.ToString; end; assert(f('str').Equals('str')); assert(f(1).Equals('1')); assert(f(new object()).Equals('System.Object')); end.