生成一个全球唯一标识符

Delphi：

var
  FGuid: TGUID;
begin
  CreateGUID(FGuid);
  edt1.Text := GUIDToString(FGuid);
  edt1.Text := edt1.Text + ' ' + IntToStr(Length(edt1.Text));
  edt1.Text := Copy(GUIDToString(FGuid), 2, 36);
end;

 

 

SQL：

SELECT  GUID = NEWID()  --4E747F0D-37F3-4423-A234-D71A04FD3934
SELECT  GUID = LEN(NEWID())   --36长