delphi生成GUID

标签：uid   res   result   func   common   lte   delphi   com   ace   

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;

delphi生成GUID

标签：uid   res   result   func   common   lte   delphi   com   ace   

原文地址：http://www.cnblogs.com/xwgcxk/p/7233683.html