/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/explicitinterface6.pas
30 строк
394 B
Бондарев Иван
bug fix #2259
16 авг 2020, 13:25
16 авг 2020, 13:25
c533fc4
Код
Авторство
О чём код?
var a: integer; type I1 = interface procedure p1(i: integer); procedure p1(s: string); end; t1 = class(I1) public procedure I1.p1(i: integer); begin a := 1; end; public procedure I1.p1(s: string); begin a := 2; end; end; begin var o: I1 := new t1; o.p1(2); assert(a = 1); o.p1(''); assert(a = 2); end.