/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/extSelf.pas
21 строка
281 B
Mikhalkovich Stanislav
fix #2180
26 июн 2020, 14:07
26 июн 2020, 14:07
32616a7
Код
Авторство
О чём код?
// #2180 type t1 = class end; function f1(self: t1; x: integer): integer; extensionmethod; begin Result := x * x; end; type t2 = class(t1) procedure test; begin Assert(f1(4)=16); Assert(Self.f1(4)=16); end; end; begin t2.Create.test; end.