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

 result:=flist[foonum-1] as ifoo;

end;

procedure tfoomanager.delafoo(id:integer);

var

 i:integer;

begin

 if foonum>0 then

 begin

   flist[id].free;

   for i:=id to foonum-2 do

   begin

    flist[i]:=flist[i+1];