delphi 使用GUID

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

haynes

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

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi基础

本文链接：https://blog.youkuaiyun.com/haynes/article/details/12871317

Delphi基础专栏收录该内容

8 篇文章

订阅专栏

本文介绍了一种在Delphi中生成全局唯一标识符（GUID）的方法。通过使用CreateGUID和GuidToString函数组合，可以创建并返回一个不带花括号的字符串形式的GUID。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

function getguid: string;
var
  SGUID: TGUID;
  sstr:string;
begin
  CreateGUID(sguid);
  sstr:=guidtostring(sguid);
  sstr:=StringReplace(sstr,'{','',[rfReplaceAll]);
  sstr:=StringReplace(sstr,'}','',[rfReplaceAll]);
  if length(sstr)>1 then result:=sstr  //加个判断
  else result:='errorGUID';
end;

使用

showmessage(getguid);

结果 8CFC62B8-6CF4-4301-A6C0-22DA16C22CEE