getGuid()
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;
本文来自博客园,作者:{咏南中间件},转载请注明原文链接:https://www.cnblogs.com/hnxxcxg/p/4886861.html