getGuid()

标签：function   string   get   gui   str   nbsp   eal   ring   create   

function GetGUID: string;
var
  LTep: TGUID;
begin
  CreateGUID(LTep);
  Result := GUIDToString(LTep);
  Result := StringReplace(Result,‘}‘,‘‘,[rfReplaceAll]);
  Result := StringReplace(Result,‘{‘,‘‘,[rfReplaceAll]);
  Result := StringReplace(Result,‘-‘,‘‘,[rfReplaceAll]);
end;

getGuid()

标签：function   string   get   gui   str   nbsp   eal   ring   create   

原文地址：https://www.cnblogs.com/Thenext/p/9486263.html