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

{ tfoomanager }

constructor tfoomanager.create;

begin

 foonum:=0;

end;

function tfoomanager.createafoo: ifoo;

begin

 inc(foonum);

 if length(flist)<foonum then

  setlength(flist,foonum*2);

 flist[foonum-1]:=tfoo.create;