【函数】如何在Delphi中生成全球唯一的UUID

在Delphi中生成UUID（通用唯一识别码）非常简单，以下是几种常用的方法：

1. 使用 CreateGuid 函数

Delphi提供了一个内置的 CreateGuid 函数，可以用来生成UUID。以下是一个示例程序：

program Guid;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  Uid: TGuid;
  Result: HResult;

begin
  Result := CreateGuid(Uid);
  if Result = S_OK then
    WriteLn(GuidToString(Uid));
end.

2. 使用 TGuid.NewGuid

在较新的Delphi版本中（如Delphi 2009及之后），你可以直接使用 TGuid.NewGuid 方法生成UUID。示例代码如下：

program Guid;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
  WriteLn(TGuid.NewGuid.ToString());
end.

3. 生成接口GUID

如果你需要为接口声明生成GUID，可以在代码编辑器中使用快捷键 Ctrl + Shift + G，这会在光标位置插入一个新的GUID。

总结

Delphi提供了多种方法来生成UUID，最简单和推荐的方法是在使用 SysUtils 单元后调用 TGuid.NewGuid。这个方法是跨平台的，能够在不同的操作系统上正常工作。