請問各位: 問題原因: 1.我想在每個Table中建立一個全球唯一碼Field,作為Table的 primary key. 2.用windows之GUID 會有32碼,考慮碼太長,不太合適. 請問:能有產生16碼以內的類似GUID(全球唯一碼)的方式提供給再下嗎. 謝謝!

你可使用在用户计算机中硬件全球唯一的标识，在加编号。 如：MAC(网卡硬件地址)

無關問題解答, 純討論一下, 用 GUID 當 Primary Key, 固然理想,  但是考慮 SQL 的效率, 恐怕沒有比用 Integer 當 Primary Key 好喔.

引言: 無關問題解答, 純討論一下, 用 GUID 當 Primary Key, 固然理想, 但是考慮 SQL 的效率, 恐怕沒有比用 Integer 當 Primary Key 好喔. < face="Verdana, Arial, Helvetica"> 我也是這麼想,GUID不論是對於使用者或系統而言,都只是一個不具意義的資料,唯一的目的是要能產生不重覆的資料以便能寫入到PK欄位裡.即然如此,為何不在新增一筆資料時直接產生一個最大的序號就好了,何以要用GUID做為PK呢?

感謝版主及各位朋友的指教.的確,目的很單純,隻是要做一個primary Key.但此Key在後續的應用中會使用很廣.會需要考慮到諸多的情形.如果用integer類型並不能完全滿足要求.基本上需要每一筆資料之的primary key都不一樣才可行.另外就是不想在database中來控制每一次的序流水。原是想能否自已在database中用字軌 序流水來解決,但總覺得不太完美，所以想尋求最好的辦法. 關於用MAC(网卡硬件地址),我try了一下,好象也是32碼長,老板不答應,太長了. :( 謝謝諸位支持.

也許 與server的時間同步 然後用 yyyymmddhhnnss可以吧

Isn't GUID a 16 bytes structure? In System.pas:    

  TGUID = packed record
    D1: LongWord;
    D2: Word;
    D3: Word;
    D4: array[0..7] of Byte;
  end;

您說的沒錯.當轉成string後的確為16碼,但show的為非a..z,0..9這間的碼,在database裡面是亂碼情形,查詢與傳送等都有問題. 沒有時間了,我已放棄這種方法了.現在採自已編碼.採用

亂碼?  用這個方式取得應該不會吧    

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

亂碼?  用這個方式取得應該不會吧    

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

您說的沒錯,但如去掉'-',卻為32碼.我想要得到一個16碼的字串. 

GUID is a 16 bytes record... If you don't mind control character (e.g. null) inside the string, do a memory copy.