因為程式需要 因此要產生一組唯一的序號
我想利用GUID產生
但是搜尋網站似乎都沒有關於產生GUID的討論
有誰知道如何產生GUID嗎? 謝謝

請善用google全文搜尋,搜尋關鍵字guid
http://www.google.com.tw/search?hl=zh-TW&q=guid site:delphi.ktop.com.tw&meta=
搜尋結果第四篇"Delphi.ktop討論區- GUID取得與使用"有API可以直接取得新的GUID

那一篇是這樣的 我也看過  但是不是很清楚他在寫什麼
可以稍微解釋一下嘛?

==========================
記得 use comobj與activex


function GetGuid:String;
var g:TGUID;
begin
CoCreateGUID(g);
result:=GUIDtoString(g);
end;

我已經寫出來了 但是長度跟我要的差很多ㄟ 我做出的GUID希望能夠塞入SQL當中
他的格式是 XXXXXXXX(8碼)-XXXX(4碼)-XXXX(4碼)-XXXX(4碼)-XXXXXXXXXXXX(12碼) 總共 32 碼

TGUID ID;
if (CoCreateGuid(&ID) == S_OK)
{
Edit1->Text = IntToHex(StrToInt64(ID.Data1),10); -----> 作出8碼
Edit2->Text = IntToHex(StrToInt64(ID.Data2),10); ------>作出4碼
Edit3->Text = IntToHex(StrToInt64( ID.Data3),10);------>作出4碼
Edit4->Text = IntToHex(int(ID.Data4),10);--------->怪怪的 似乎不會改變
}
有人知道該怎麼做嗎? 麻煩指導一下 謝謝

我已經做出來了
關鍵在於最後的Data4是八個char
可以作出16個碼 謝謝大家