GUIDを生成します

GUIDを生成します

手順TForm1.Button1Click（送信者：TObjectを）;
VaRの
ID：TGUID。
sGUID：文字列。
開始
　　CreateGUID（ID）を、
　　sGUID：= GUIDToString（ID）。
　　// sGUID：コピー（sGUID、2、長さ（sGUID） - 2）=。
　　sGUID：= sGUID.Substring（1、sGuid.Length-2）。
　　vecMsg（sGUID、 ''）;
終わり;