тим, у нас есть следующее:

IFirst = Interface(IUnknown)    
  function GetStuff: Integer;
end;

ISecond = Interface(IUnknown)
  function GetOtherStuff: Integer;
end;

TFirstSecond = class(TInterfacedObject, IFirst, ISecond)    
private 
  function GetStuff: Integer;        //implementation of IFirst
  function GetOtherStuff: Integer;   //implementation of ISecond;
end;

Мне никогда не нравился тот факт, что в TInterfacedObject, кажется, нет никакого способа различать, какие методы реализуют какие интерфейсы. Я что-то пропустил? Кто-нибудь знает, как структурировать код для этого? Чтобы обозначить, что GetStuff - это реализация IFirst, а GetOtherStuff - это реализация ISecond? («Оставить комментарий» - это не тот ответ, который я ищу ...)

Я знаю, что могу использовать директиву «Implements», чтобы определять свойства в TFirstSecond для каждого интерфейса и делегировать реализации экземплярам, ​​содержащимся в TFirstSecond, таким образом разделяя все. Но я хотел бы ярлык ...