- 博客(1)
- 收藏
- 关注
RSS订阅原创 Singleton模式之Delphi实现
type TSingleton = class(TObject) public A : Integer; class function NewInstance: TObject; override; procedure FreeInstance; override; class function RefCount:
2002-09-19 09:23:00
839
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人