begin
FList[i]:=FList[i 1]; //移动剩余元素，使对象在flist中保持连续存贮。
end;
FList[FooNum-1]:=nil;
Dec(FooNum);
end;
end;
这个方法根据传入的一个ID值释放指定的对象（在管理多种不同的对象时，还需要接收一个代表所需要释放对象类型的参数以决定释放哪种类型的对象）。好，一切看上去都很正常，但当我们从DLL外在调用工厂方法创建对象的时候问题出现了：
procedure CallCreateFoo;
var
tempfoo:IFoo;//要创建的Foo对象的接口IFoo
begin
tempfoo:=FooMan.CreateAFoo; //FooMan是工厂类的对象的接口
end;
当我们需要在这个过程外使用刚才创建的对象时（例如我们可以使用工厂类的一个方法TFooManager.GetFooByID(id: integer)根据传入的id找到flist中指定的对象，如刚才我们通过工厂方法创建的那对象），会出现一个内存访问错误，仔细观察后会发现我们刚才创建的对象根本不在内存中！为什么？由于
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
