摘要:
1 unit Unit2; 2 3 interface 4 5 uses System.SysUtils; 6 7 type 8 { TSingle } 9 TSingle = class(TObject)10 private11 FStr: string;12 protected13 public14 constructor Create;15 class function GetInstance(): TSingle;16 class function NewInstance: TObject; override;17 p... 阅读全文
posted @ 2013-08-01 22:13 对镜弹箜篌 阅读(996) 评论(0) 推荐(0) 编辑