delphi 单例模式实现

【delphi 单例模式实现】的更多相关文章

delphi 单例模式实现

unit Unit2; interface uses System.SysUtils; type { TSingle } TSingle = class(TObject) private FStr: string; protected public constructor Create; class function GetInstance(): TSingle; class function NewInstance: TObject; override; procedure FreeInsta…

delphi 单例模式

unit Singleton; (* 单例模式适用于辅助类, 一般伴随于单元的生命周期 *) interface uses SysUtils; type TSingleton = class public class function NewInstance : TObject; override; class function GetInstance : TSingleton; destructor Destroy; override; procedure FreeInstance; over…

Delphi - 互斥对象下实现系统的单例模式

使用CreateMutex函数创建互斥对象利用Windows系统函数CreateMutex(),找出当前系统是否已经存在指定进程的实例,如果没有则创建一个互斥体. CreateMutex函数原型如下: function CreateMutex(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PChar): THandle; function CreateMutex(lpMutexAttributes: P…

Delphi 设计模式：《HeadFirst设计模式》Delphi2007代码---单例模式之ChocolateBoiler[转]

1 2{<HeadFirst设计模式>之单例模式 } 3{ 编译工具: Delphi2007 for win32 } 4{ E-Mail : guzh-0417@163.com } 5 6unit uChocolateBoiler; 7 8interface 9 10type 11 TChocolateBoiler = class(TObject) 12 strict private 13 class var 14 FUniqueInstance: TC…

Delphi ThreadPool 线程池(Delphi2009以上版本适用)

http://blog.sina.com.cn/s/blog_6250a9df0101kref.html 在网上查找Delphi线程池,结果发现寥寥无几. 看了半天源代码,弄得一头雾水,觉得不容易理解和使用,于是自己想写一个线程池. 什么样的线程池更好呢? 我觉得使用起来要可靠,并且一定要简单,这样才是更好的. 我写的线程池就是这样一个标准,使用非常简单,只传入自己要执行的方法就可以了, 其实大家最后就是关注自己要操作的方法,其余的交给线程池.全部源代码如下: { {单元:ThreadPoolU…

delphi 窗体的创建和释放

Delphi中的窗体分为模式窗体和无模式窗体.二者的区别在于,用户可以在无模式窗体和其他窗体之间切换.这样,用户就可以同时工作于一个应用程序的几个部分.Delphi中窗体的初始化有两种情况,动态创建,和自动创建.通过show显示一个无模式窗体,ShowModal显示一个模式窗体.窗体有创建对应的也要考虑释放问题.当关闭一个窗体时,窗体并没有真正从内存中释放掉,它仍然存在于内存中,除非关闭了主窗体.因为模式窗体于无模式窗体的不同,所以二者的释放处理也有不同. 模式窗体的创建与释放因为模式窗体可以…

Elite Container DELPHI下的一个轻量级IoC对象容器

一.简介: Elite Container是DELPHI下的一个轻量级IoC对象容器(IoC:Inverse of Control,反转控制).它是参考了Java中的Spring框架(主要是配置文件的写法),并结合DELPHI的特点来构建的.相比Spring的对象容器,它提供的功能更为精简常用(如对象延迟创建.对象属性自动注入等),降低了学习的难度,并且提供了很多扩展点,你只需简单地写一个插件实现类,并在配置文件中进行简单配置,就可以让Elite Container拥有你的自定义功能! Elit…