用Delphi实现Singleton模式

//线程单元
unit Unit_Send ;

interface
uses
　SysUtils, Classes,StrUtils,main;

type

TSendThread = class(TThread)
public
　constructor Create(CreateSuspended: Boolean);
　destructor Destroy; override;
　class function getInstance:TSendThread;

protected
　procedure Execute; override;
end;

var
　Global_Instance:TSendThread;

implementation

　uses DB;

　class function TSendThread.getInstance:TSendThread;
　begin
　　if Global_Instance=nil then
　　begin
　　　Global_Instance:=TSendThread.Create(false);
　　end;
　　Result:=Global_Instance;
　end;

　constructor TSendThread.Create(CreateSuspended: Boolean);
　begin
　　if Global_Instance=nil then
　　begin
　　　inherited Create(CreateSuspended);
　　　FreeOnTerminate:=true ;
　　end
　　else //如果有人不小心多次创建对象则产生一个异常
　　　raise Exception.CreateFmt('Can not create more than one TSendThread instance!',[SysErrorMessage(0)]);
　　end;

　　destructor TSendThread.Destroy;
　　begin
　　　inherited Destroy;
　　end;

　　procedure TSendThread.Execute;
　　var
　　　theuser:TUserInfo;
　　　tmpSql:string;
　　begin
　　　//执行任务
　　　//处理定时下发 '+GameInfo.mainusertable+'
　　　tmpSql:='select * from '+mainusertable+' where destroy=0 order by id';
　　　Service1.ADOQuery_send.Connection:=conn_Server;
　　　SQLQuery(Service1.ADOQuery_send,tmpSql);
　　　while (not Service1.ADOQuery_send.Eof) and (not Terminated) do
　　　begin
　　　　theuser.SeqID:='0';
　　　　theuser.UID:='';
　　　　theuser.Spc:=GetMSG('PARAMETER','Spcode',theexename+'.ini');
　　　　theuser.RecordID:='0';
　　　　theuser.Mob:=Service1.ADOQuery_send.FieldByname('mobile').AsString;
　　　　AutoJoke(theuser);
　　　　Service1.ADOQuery_send.Next;
　　　end;
　　　Sleep(600001);
　　　Global_Instance:=nil;
　　　Terminate;
　　　//任务完成
　　end;

　end.