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

   end;

   flist[foonum-1]:=nil;

   dec(foonum);

 end;

end;

destructor tfoomanager.destroy;

//在释放工厂类前释放所有所维护的对象

var

 i:integer;

begin

  for i:=0 to foonum-1 do