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.

Under the covers CreateGuid() calls one of the various APIs, depending on the platform. For example on Windows, it nowadays calls UuidCreate .

Answer 2

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

Answer 3

If you're using one of the latest version of Delphi, and include SysUtils, you can call TGuid.NewGuid to generate a new guid.

NewGuid is actually implemented in a helper class for TGuid ( TGuidHelper ), which is declared in SysUtils.

This function calls the CreateGUID method (also in SysUtils and already mentioned in the answer by Mitch Wheat), which is actually a cross platform function that calls different libraries depending on the platform it runs on.

Answer 4

Yes TGUID , see this example

program Guid;

{$APPTYPE CONSOLE}

uses
SysUtils;

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