其他分享
首页 > 其他分享> > Delphi - 生成GUID

Delphi - 生成GUID

作者:互联网

uses   SysUtils;

// 生成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;

 

参考:

https://www.cnblogs.com/xwgcxk/p/7233683.html  

标签:www,string,Delphi,LTep,sGUID,生成,GUID
来源: https://www.cnblogs.com/sunylat/p/14397731.html