uses SysUtils;
function TCommonAll.GetGUID: string; var LTep: TGUID; sGUID: string; begin CreateGUID(LTep); sGUID := GUIDToString(LTep); sGUID := StringReplace(sGUID, '-', '', [rfReplaceAll]); sGUID := Copy(sGUID, 2, Length(sGUID) - 2); Result := sGUID; end;
|
请发表评论