Разные интерфейсы с одинаковыми методами

← →
Michael (2007-12-03 10:12) [0]

Здравствуйте, подскажите, пожалуйста, как можно реализовать объект, если он имеет два разных интерфейса с одинаковыми функциями?
Пример:
Int_1 = interface function My : BYTE; stdcall; end; Int_2 = interface function My : BYTE; stdcall; end; TMyObject = class (TInterfacedObject, Int_1, Int_2) // ... // реализация Int_1 function My : BYTE; stdcall; // реализация Int_2 function My : BYTE; stdcall; // ... end;

Что делать в такой ситуации? Можно ли одной из функций назначить синоним и как это сделать?
Спасибо

← →
MBo © (2007-12-03 10:37) [1]

function Int1.My = My1;
function Int2.My = My2;

в справке - Method resolution clauses

← →
Michael (2007-12-03 10:57) [2]

to MBo:
Спасибо, получилось.

Вопрос закрыт

Это как запах «Alternative Classes with Different Interfaces»
только наоборот.

Переименуйте метод, так чтобы его имя отражало то, что он делает. А если они делают одно и тоже, то тут «Duplicate code»

Разные интерфейсы с одинаковыми методами Найти похожие ветки