创建 GUID

最新推荐文章于 2025-04-07 00:18:24 发布

weixin_34080903

最新推荐文章于 2025-04-07 00:18:24 发布

阅读量73

点赞数

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/hermer/blog/320739

为什么80%的码农都做不了架构师？>>>

uses ComObj, ActiveX;

procedure TForm1.Button1Click(Sender: TObject);
var
  Guid: TGUID;
  str: string;
begin
  CoCreateGuid(Guid);
  str := GUIDToString(Guid);

  Memo1.Lines.Add(str);
end;

procedure TForm1.Button2Click(Sender: TObject);
const
  Guid: TGUID = (D1:$AAAAAAAA; D2:$BBBB; D3:$CCCC; D4:($11,$22,$33,$44,$55,$66,$77,$88));
var
  str: string;
begin
  str := GUIDToString(Guid);
  ShowMessage(str); {AAAAAAAA-BBBB-CCCC-1122-334455667788}
end;

procedure TForm1.Button3Click(Sender: TObject);
const
  Guid: TGUID = '{AAAAAAAA-BBBB-CCCC-1122-334455667788}';
var
  str: string;
begin
  str := GUIDToString(Guid);
  ShowMessage(str); {AAAAAAAA-BBBB-CCCC-1122-334455667788}
end;

转载于:https://my.oschina.net/hermer/blog/320739