Delphi UUID生成器

Question

Delphi是否内置了生成UUID的内容？

Answer 1

program Guid;

{$APPTYPE CONSOLE}

uses
SysUtils;

var

Uid: TGuid;
Result: HResult;

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

在封面下CreateGuid()调用各种AP​​I之一,具体取决于平台.例如,在Windows上,它现在调用UuidCreate.

Answer 2

此外,如果您需要接口声明的GUID,请在代码编辑器中按ctrl+ shift+ g以在插入符号处插入GUID.

Answer 3

如果您使用的是Delphi的最新版本之一，并且包含SysUtils，则可以调用TGuid.NewGuid生成新的Guid。

NewGuid实际上是在TGuid的帮助程序类（TGuidHelper）中实现的，该类在SysUtils 中声明。

此函数调用CreateGUID方法（也在SysUtils中，并且在Mitch Wheat的答案中已经提到），该方法实际上是一个跨平台函数，根据其运行的平台调用不同的库。

Answer 4

是的TGUID，看这个例子

program Guid;

{$APPTYPE CONSOLE}

uses
SysUtils;

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