回答: 可以有两种方法: 1)可以在类中用声明一个自身类型的全局对象用于存储单件对象的引用,构造函数create通过检查全局变量的引用来避免创建多余对象。 2)可以用delphi自身的对象构造机制(参考TObject)实现,即覆盖TObject的NewInstance,FreeInstance,和实现RefCount

回答: 可以有两种方法: 1)可以在类中用声明一个自身类型的全局对象用于存储单件对象的引用,构造函数create通过检查全局变量的引用来避免创建多余对象。 2)可以用delphi自身的对象构造机制(参考TObject)实现,即覆盖TObject的NewInstance,FreeInstance,和实现RefCount