/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/delegates4.pas
19 строк
302 B
Mikhalkovich Stanislav
Закончил превращение синтаксиса [] по умолчанию в массивы
10 дек 2024, 10:59
10 дек 2024, 10:59
db9679d
Код
Авторство
О чём код?
type TFunc = function(i: integer):integer; function f1(i : integer) : integer; begin Result := i; end; function f2(i : integer) : integer; begin Result := i; end; const arr : TFunc = f1; arr2 : array[1..3] of TFunc = (f1,f2,f1); begin assert(arr(3)=3); assert(arr2[2](2)=2); end.