摘要：
单例模式用于限制进程中只有一个某个类的对象，本例的singleton是一个线程实例，在每一个时钟到达时检测是否到达某个时刻（本例的时刻存于ini文件中），如果到达则产生一个线程，但是如果在这个线程完成其任务前又到达一个时钟，则有可能会产生多个线程执行任务，以致出现混乱，所以考虑使用singleton模式解决这个问题（当然还有其他解决方案，但本例使用的是singleton）。 核心代码如下： //......
摘要：
之前用的是java那一套东西，有eclipse什么都搞定了。现在因为要用delphi改一个即时通讯软件的缘故，想着怎么能把重构和单元测试那一套搬到delphi这边来。书上说给现有的代码加单元测试能够加深对代码的理解，并且可以作为改善代码的基础，这不正是我要做的事情吗？于是，为了搭建这么一个敏捷平台，我以delphi2005和dunit进行了一点小小的尝试，并把结果记录于下，与大家分享。 1、下载......
function GetVersion(sFile: string; bIncludeBuild: boolean): string;
function getversion(sfile: string; bincludebuild: boolean): string;var 【程序编程相关:
ShadowStar CodeFast 】 【推荐阅读:
如何减小应用程序(EXE)的大小?】 dwfvw, dwzero, dwvsf: dword; 【扩展信息:
systemparametersinfo】 major, minor, release, build: dword; pfvw: pchar; pvsf: pvsfixedfileinfo; s: string; begin result := ; // attempt to read version info size dwfvw := getfileversioninfosize(pchar(sfile), dwzero); // exit on error if dwfvw <> 0 then begin getmem(pfvw, dwfvw); try // exit if unable to retrieve version info if (getfileversioninfo(pchar(sfile), dwzero, dwfvw, pfvw)) then begin // get the build value if (verqueryvalue(pfvw, \, pointer(pvsf), dwvsf)) then begin if ((pvsf^.dwfileflags and vs_ff_prerelease) > 0) then begin ...
下一页 摘要：
//////////////////////////// // 武汉探索电脑工作室 // // http://tansuo.51.net // //////////////////////////// //增加规格自定义纸张 //papername: 自定义纸张名称 //paperwidth: 纸张的宽度，以0.1mm为单位 //paperlength: 纸张的高度，以0.1mm为单位 proc......
