非COM环境下的接口编程--问题，技巧，应用（二）[3]

implementation

{ tfoo }

function tfoo.fooadd(x, y: integer):integer;

begin

 result:=x+y;

end;

工厂类的声明和实现：

tfoomanager=class(tmyinterfacedobject,ifoomanager)

  private

    flist:array of tfoo;

    foonum:integer;

  protected