请教高手,在DELPHI开发环境中怎样生成GUID?

Question

请教高手,在DELPHI开发环境中怎样生成GUID?

Answer 1

首先多谢解答!我的意思是有没有函数可以生成guid,而不是在编辑状态生成一条.比如我现在要插入一条记录,而多个表希望有相同的标识,,希望用GUID作为标识,多谢指教!

Answer 2

var
 GUID:TGUID;
begin
 CreateGuid(GUID);
 showmessage(GUIDtoString(GUID));
end;

Answer 3

用API: CoCreateGuid 可以生成GUID

Answer 4

usesActiveX,ComObj;function GetGUID: string;
var
  id: TGUID;
begin
  if CoCreateGuid(id) = s_ok then
    Result := GUIDToString(id);
end;