Форум программистов [Powered by Invision Power Board]

Код


  {Основоной обьект}
  IA = interface
    procedure AAAAA;
  end;

  TA = class(TInterfacedObject, IA)
    procedure AAAAA;
  end;

  {Обьект для создания основного}
  IB = interface
    function Create_IA: IA;
  end;

  TB = class(TInterfacedObject, IB)
    function Create_IA: IA;
  end; 

{так они премерно будут использоваться}
var
   A: IA;
   B: IB;
begin
  B := CreateComObject({ну тут не обходимые параметры для IB})  
  A := B.Create_IA;
end;

Код


function TB.Create_IA: IA;
begin
  Result := TA.Create;
end;