在delphi中生成GUID

什么是 GUID ?

全球唯一标识符 (GUID) 是一个字母数字标识符，用于指示产品的唯一性安装。在许多流行软件应用程序（例如 Web 浏览器和媒体播放器）中，都使用 GUID。

GUID 的格式为8-4-4-4-12 :“xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx”其中每个 x 是 0-9 或 A-F 范围内的一个十六进制的数字。例如：6F9619FF-8B86-D011-B42D-00C04FC964FF 即为有效的 GUID 值。

为什么要使用 GUID ?

世界上的任何两台计算机都不会生成重复的 GUID 值。GUID 主要用于在拥有多个节点、多台计算机的网络或系统中，分配必须具有唯一性的标识符。数据库中用作主键，标识唯一且在不同的数据库之间转换数据不会出错,而用自增字段就会有很多麻烦。在 Windows 平台上，GUID 应用非常广泛：注册表、类及接口标识、数据库、甚至自动生成的机器名、目录名等。

Delphi中如何生成GUID：

//懒妹：QQ:112412387

// uses ComObj
var
  AGuid: TGUID;
  sGUID: string;
begin
  sGUID := CreateClassID;
  ShowMessage(sGUID); // 两边带大括号的Guid
  Delete(sGUID, 1, 1);
  Delete(sGUID, Length(sGUID), 1);
  ShowMessage(sGUID); // 去掉大括号的Guid，占36位中间有减号
  sGUID:= StringReplace(sGUID, '-', '', [rfReplaceAll]);
  ShowMessage(sGUID); // 去掉减号的Guid，占32位
end;

生成GUID的算法根据以下几个方面：1.当前日期与时间。2.网卡地址。3.时针序。4.自动递增计数器。其中，网卡地址是相互不同的，对没有网卡的机器，自动递增计数器对使用中的机器保持唯一性,MS保证同一台电脑中每秒生成100个GUID在3000多年内一个GUID是绝对唯一的.

所以GUID码可以认为是不会重复的。不同环境是不可能生成重复的GUID码，就算相同环境(以上四个都相同)重复概率也是非常非常低,就像你在中国买福彩中头奖一样几乎不可能,要想GUID相同，就人工修改它，也像中国福彩一样，所以经常有人中上亿,当然不会是你啦，人家是Administrator有这个权限，呵呵~~说笑话啦。。。。

---------------------
作者：i8013
来源：CSDN
原文：https://blog.csdn.net/i8013/article/details/6783952
版权声明：本文为博主原创文章，转载请附上博文链接！