|
uses dateutils;var spdelib_base_datetime :TDateTime; implementation initialization spdelib_base_datetime := EncodeDateTime(2000,1,1,0,0,0,0); finalization end. 当然,你直接给数据值也行,因为在delphi里TDateTime就是double类型.这只是个人习贯而以. 定义系统服务单元:提供了系统的comb算法: //******************************************************************** // // Name : Sinoprise Function Library For Delphi // //Author : Shuguang Yin //Create : 2005-11-15 // // Copyright (c) 2005 : Sinoprise Technology Lab // Official WebSite : http://www.sinoprise.com // Sinoprise Technology Community : http://www.winux.cn // //******************************************************************** // //Unit Name : SSystemUnit // //Function : The System Functions // //******************************************************************** unit SSystemUnit; interface uses Windows,ActiveX,SysUtils,Dateutils; const Cardinal_Length = sizeof(Cardinal); type SSystem = class //取得一个经过转化的GUID，详见：Jimmy Nilsson的''''The Const of GUIDs as Primary Keys'''' class Function GetCombGUID():TGUID;overload; class Function GetCombGUID(guid:TGUID):TGUID;overload; //从comb guid中得到日期和时间 class Function GetDateTimeFromCombGuid(guid:TGUID):TDateTime; //根据给定的字符串分割符 ，格式化GUID的字符串 class Function GetGuidString(guid:TGUID;beginSymbol:string=''''{''''; endSymbol:string=''''}'''';partitionSymbol:string=''''-''''):string; class Function GetGuidString2(guid:TGUID;beginSymbol:string=''''{''''; endSymbol:string=''''}'''';partitionSymbol:string=''''-''''):string; end; implementation uses SConvertUnit,SConstUnit; { SSystem } class function SSystem.GetCombGUID: TGUID; begin if CoCreateGUID(result) = S_OK then begin result := GetCombGUID(result); end else begin 上一页 [1] [2] [3] [4] 下一页
[VB.NET程序]Read a byte, integer or long from memory [VB.NET程序]源代码推荐：vb的GUID生成算法
[Delphi程序]在Delphi中通过函数获取GUID [Delphi程序]Integer GUID和Comb做主键的效率测试(Delphi+acce…
[Delphi程序]Integer GUID和Comb做主键的效率测试(Delphi+acce…
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
