คำสำคัญ:
activex, tguid, cocreateguid, guidtostring
// --- โปรแกรมทดสอบโดย Conan 2005/04/14 --- //
บทที่หน่วย 1;
ส่วนต่อประสาน
ใช้
Windows, ข้อความ, sysutils, ตัวแปร, คลาส, กราฟิก, การควบคุม, รูปแบบ,
บทสนทนา
activex, stdctrls;
พิมพ์
tform1 = คลาส (tform)
ปุ่ม 1: tbutton;
ขั้นตอน button1click (ผู้ส่ง: tobject);
ส่วนตัว
{ประกาศส่วนตัว}
สาธารณะ
{ประกาศสาธารณะ}
จบ;
วาจา
Form1: TFORM1;
การดำเนินการ
{$ r *.dfm}
ขั้นตอน tform1.button1click (ผู้ส่ง: tobject);
วาจา
ฉัน: จำนวนเต็ม;
SGUID: String;
TMPGUID: TGUID;
เริ่ม
สำหรับ i: = 0 ถึง 10 ทำ
เริ่ม
ถ้า cocreateguid (tmpGuid) = s_ok แล้ว
SGUID: = GuidToString (TMPGUID)
อื่น
ShowMessage ('สร้างข้อผิดพลาด GUID!');
Showmessage (sguid);
จบ;
จบ;
จบ.