delphi生成GUID

 

uses   SysUtils;

 

 

function TCommonAll.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;

posted @   坤霸天下  阅读(5280)  评论(1编辑  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示