/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/ExplicitInterface4.pas
31 строка
349 B
Mikhalkovich Stanislav
fix #2163
21 дек 2019, 23:25
21 дек 2019, 23:25
4bb8287
Код
Авторство
О чём код?
var s: integer; type IA = interface procedure P(); end; A = class(IA) public {procedure P(); begin end;} procedure IA.P(); begin s := 1; end; end; B = class(A, IA) public procedure IA.P(); begin s := 2; end; end; begin var b1 := new B; IA(b1).P; Assert(s=2) end.