function createfguid: string ;
var
v_guid:TGUID;
v_fguid:string;
begin
CreateGuid(v_guid);
v_fguid:=GUIDToString(v_guid);
v_fguid:=StringReplace(v_fguid,'-','',[rfReplaceAll]);
v_fguid:=Copy(v_fguid,2,32);
Result:=v_fguid;
end;
delphiz中创建guid
生成唯一无横杠GUID
最新推荐文章于 2025-04-07 00:18:24 发布
本文介绍了一种在Delphi中生成不包含横杠的唯一GUID的方法。通过使用CreateGuid生成GUID,然后利用GUIDToString转换并去除横杠,最后截取特定长度的字符串来创建唯一的标识符。
589

被折叠的 条评论
为什么被折叠?



