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

  begin

   flist[i].free;

   flist[i]:=nil;

  end;

  finalize(flist);

  inherited;

end;

function tfoomanager.getfoobyid(id: integer): ifoo;

begin

 result:=flist[id] as ifoo;

end;