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

标签：字符   replace   位长   var   eal   bsp   temp   UI   gui   

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位长字符串

标签：字符   replace   位长   var   eal   bsp   temp   UI   gui   

原文地址：http://www.cnblogs.com/railgunman/p/7811842.html