delphi中获取GUID的函数

function GetGUID: string;
var
  Guid: TGUID;
begin
  CreateGUID(Guid);
  Result := GUIDToString(Guid);
end;

    最近在寫程序中需要分析文本文件，文件中的結果需要保存到數據庫，文件內容分兩個部分：一部分基本信息，一部分是詳細信息 。基本信息可以作為一條記錄保存，但是詳細信息是多條，如何將兩者關聯起來。所以就想到了用GUID的方式。在保存數據的時候首先獲取到GUID。然後分別保存基本信息和詳細信息。