Delphi UUID生成器

发布时间：2020-12-15 10:19:37 所属栏目：大数据来源：网络整理

导读：Delphi有什么内置的生成UUIDs？解决方法 program Guid;{$APPTYPE CONSOLE}usesSysUtils;varUid: TGuid;Result: HResult;beginResult := CreateGuid(Uid);if Result = S_OK then WriteLn(GuidToString(Uid));end. 下面的CreateGuid()调用Windows API函数CoCr

Delphi有什么内置的生成UUIDs？

解决方法

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()。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!