在Delphi中获得唯一32位长字符串

Posted 覆雨翻云

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了在Delphi中获得唯一32位长字符串相关的知识，希望对你有一定的参考价值。

function GetGUID: string;
var
  vGUID: TGUID;
  vTemp:string;
begin
  if S_OK = CreateGuid(vGUID) then
  begin
    vTemp := GUIDToString(vGUID);
    //去掉字符串中的{,-字符
    vTemp:=StringReplace(vTemp,‘-‘,‘‘,[rfReplaceAll]);
    vTemp:=StringReplace(vTemp,‘{‘,‘‘,[rfReplaceAll]);
    vTemp:=StringReplace(vTemp,‘}‘,‘‘,[rfReplaceAll]);
  end;
  Result:=vTemp;
end;

以上是关于在Delphi中获得唯一32位长字符串的主要内容，如果未能解决你的问题，请参考以下文章