/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/explicitinterface3.pas
34 строки
631 B
Бондарев Иван
bug fix #2059
18 авг 2019, 12:16
18 авг 2019, 12:16
fbf8516
Код
Авторство
О чём код?
var s: string; type IWindow = interface procedure Menu; end; IRestaurant = interface procedure Menu; end; RestaurantSystem = class(IWindow,IRestaurant) public procedure Menu; virtual; begin s := 'RestaurantSystem.Menu'; end; procedure IWindow.Menu; begin s := 'IWindow.Menu'; end; procedure IRestaurant.Menu; begin s := 'IRestaurant.Menu'; end; end; begin var r := new RestaurantSystem; r.Menu; assert(s = 'RestaurantSystem.Menu'); IWindow(r).Menu; assert(s = 'IWindow.Menu'); IRestaurant(r).Menu; assert(s = 'IRestaurant.Menu'); end.