生成GUID

标签：roc   tostring   button   send   obj   creat   for   sub   bst   

生成GUID

procedure TForm1.Button1Click(Sender: TObject);
var
id : TGUID;
sGUID : String;
begin
　　CreateGUID(id);
　　sGUID := GUIDToString(id);
　　//sGUID := Copy(sGUID, 2, Length(sGUID) - 2);
　　sGUID := sGUID.Substring(1, sGuid.Length-2);
　　vecMsg(sGUID, ‘‘);
end;

生成GUID

标签：roc   tostring   button   send   obj   creat   for   sub   bst   

原文地址：https://www.cnblogs.com/CipherLab/p/11826689.html