/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/params9.pas
47 строк
719 B
Бондарев Иван
bug fix #260
31 июл 2016, 17:28
31 июл 2016, 17:28
48340c1
Код
Авторство
О чём код?
procedure Test(params arr: array of integer); begin assert(arr[0]=1); assert(arr[1]=2); end; function Testsum(params arr: array of integer): integer; begin Result := arr[0]+arr[1]; end; procedure Test2; var i2 := Testsum(1,2); procedure Nested; begin Test(1,2); var i := Testsum(1,2); assert(i = 3); assert(i2 = 3); end; begin Test(1,2); Nested; var i := Testsum(1,2); assert(i = 3); assert(i2 = 3); end; type TClass = class i := Testsum(1,2); constructor; begin assert(i = 3); Test(1,2); end; end; var i2 := Testsum(1,2); begin Test(1,2); Test2; var i := Testsum(1,2); assert(i = 3); assert(i2 = 3); var obj := new TClass; end.