德尔福UUID生成器

Question

德尔福有什么内置的生成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()调用Windows API函数CoCreateGuid().

Answer 2

另外，如果你需要一个GUID用于接口声明中，命中CTRL + 转变克在代码编辑器在插入符处插入一个GUID。

Answer 3

如果您使用的是Delphi的最新版本，您可以通过调用TGuidHelper.NewGuid来使用TGuidHelper类，它将生成一个新的TGUiD。