getGuid() 

function GetGUID: string;
 
var
 
Guid: TGUID;
 
begin
 
CreateGUID(Guid);
 
Result := GUIDToString(Guid);
 
end;

 

 

 

 

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;

 

posted @ 2018-08-16 11:26  Thenext  阅读(621)  评论(0)  编辑  收藏  举报