i have base interface:
type
iBaseFoo = interface
BaseMethod1;
BaseMethod2;
BaseMethod3;
end;
iTestFoo = interface(ibaseFoo)
TestFooMethod;
end;
--
TBaseFoo = class(TInterfacedObject, iBaseFoo)
private
// some code here
protected
BaseMethod1;
BaseMethod2;
BaseMethod3;
end;
TTestFoo = class(TBaseFoo, ITestFoo)
// how to Ensures TTestFoo inherits IBaseFoo methods from TBaseFoo, avoiding re-implementation.
procedure TestFooMethod;
end;
--
my question is:
How can I ensure that TTestFoo (or any descendant of TBaseFoo) uses the IBaseFoo method implementations provided by TBaseFoo, without re-implementing these methods in every descendant class?