Delphi - 生成GUID
2021-03-01 06:26
阅读：506
标签：result ref func div function htm https guid string uses SysUtils; 参考： https://www.cnblogs.com/xwgcxk/p/7233683.html Delphi - 生成GUID 标签：result ref func div function htm https guid string 原文地址：https://www.cnblogs.com/sunylat/p/14397731.html
// 生成GUID
function TForm2.GetGUID: string;
var
LTep: TGUID;
sGUID: string;
begin
CreateGUID(LTep);
sGUID := GuidToString(LTep);
sGUID := StringReplace(sGUID, ‘-‘, ‘‘, [rfReplaceAll]);
sGUID := Copy(sGUID, 2, length(sGUID) - 2);
Result := sGUID;
end;
评论
亲，登录后才可以留言！