end
else begin
raise Exception.Create('Create GUID Err!');
end;
end;
class function SSystem.GetCombGUID(guid: TGUID): TGUID;
var
dtm : TDateTime;
days,seconds,tmp : longint;//32 bit
begin
dtm := Now();
dtm := dtm - spdelib_base_datetime;
days := trunc(dtm);
//应该*1000000000(10个0),但这样会可能发生溢出
//如果采用int64,则会给下面的移位转换带来麻烦
//所以这里采用了1000000000(9个0)
