Delphi-Quellcode:
TTestClass = class(TInterfacedObject, IInterface1, IInterface2, IInterface3 )
private
function I2Init: Boolean; stdcall;
function I3Init: Boolean; stdcall;
public
function Init: Boolean; stdcall;// Init aus IInterface1
function IInterface2.Init = I2Init;
function IInterface3.Init = I3Init;
end;
Das funktioniert hier einwandfrei