Guid生成唯一ID编号

原创 2017年10月13日 16:27:56
function GetGUID: string;
var
  i: Integer;
  GUID: TGUID;
begin
  i := 0;
  Result := '';

  while i < 3 do
  begin
    if CoCreateGuid(GUID) = S_OK then
    begin
      SetLength(Result, 32);
      StrLFmt(PChar(Result), 32,'%.8x%.4x%.4x%.2x%.2x%.2x%.2x%.2x%.2x%.2x%.2x',
        [Guid.D1, Guid.D2, Guid.D3, Guid.D4[0], Guid.D4[1], Guid.D4[2], Guid.D4[3],
        Guid.D4[4], Guid.D4[5], Guid.D4[6], Guid.D4[7]]);

      Break;
    end;

    Inc(i);
  end;

  if Result = '' then
  begin
    GUIDCnt := GUIDCnt + 1;
    Result := FormatDateTime('YYYYMMDDHHMMSSZZZ', Now) + '-' + IntToHex(GUIDCnt, 14);
  end;
end;

uses Winapi.ActiveX,
最后记得引用 ActiveX单元
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

生成唯一32位ID编码代码Java(GUID)

JAVA 生成32位永不重复GUID

php 根据自增id创建唯一编号类

在开发过程中,我们数据表一般都使用自增数字作为id主键,而id是数字型,不容易理解。我们把id按一定格式转为编号后,很容易根据编号知道代表的是什么内容。本文将介绍使用php实现使用自增id创建唯一编号...

生成全局唯一编号

生成不重复唯一编号工具类

生成不重复唯一编号工具类根据ip地址,MAC地址,访问时间以及哈希算法生成唯一不重复的唯一编号以及访问IP地址获取工具类/** * 生成随机数工具类 * @author sun Email:wns...

游戏服务器生成全局唯一ID的几种方法

比如手机游戏,可以使用简单的redis方式,简单不容易出错,由于这种游戏单服并发新建id量并不太大,完全可以满足需要。而对于大型的世界游戏服务器,它本身就是以分布式为主的,所以可以使用snowflak...

java根据时间生成唯一ID

内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)