/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/defaultparams1.pas
64 строки
952 B
Бондарев Иван
bug fix #471
25 авг 2017, 20:54
25 авг 2017, 20:54
aaebcf4
Код
Авторство
О чём код?
function test(a:integer; b: integer:=3): integer; begin Result := b; end; function test2(a: integer := 4): integer; begin Result := a; end; function test3(a: integer := 4; b: real := 2.3): integer; begin Result := a; end; function string.test(a: integer := 6): integer; begin Result := a; end; function ff(delim: string := ' '): string; begin Result := 'abc'; end; procedure tt(str: string); begin assert(str = 'abc'); end; procedure tt(i: integer); begin raise new Exception; end; type TClass=class function f(a: integer := 1; b: integer := 2): integer; begin Result:=2; end; end; begin assert(test3=4); assert(test(2)=3); assert(test(2,4)=4); var j : integer := test2; assert(j=4); var i := test2; assert(i = 4); var s := 'abcd'; assert(s.test=6); var k := s.test; assert(k = 6); tt(ff); assert(ArrRandomReal <> nil); assert(ArrRandomReal.Any = true); var obj := new TClass; var l := obj.f; assert(l = 2); end.