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的答案中已经提到过），这实际上是一个跨平台函数，根据运行的平台调用不同的库。