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长