الكلمة الرئيسية:
Activex ، tguid ، coCreateguid ، GuidtoString
// --- برنامج اختبار بواسطة كونان 2005/04/14 --- //
الوحدة 1 ؛
واجهة
يستخدم
Windows ، الرسائل ، sysutils ، المتغيرات ، الفئات ، الرسومات ، عناصر التحكم ، النماذج ،
مربعات الحوار ،
ActiveX ، stdctrls ؛
يكتب
tform1 = فئة (tform)
Button1: Tbutton ؛
الإجراءات button1click (المرسل: tobject) ؛
خاص
{إعلانات خاصة}
عام
{الإعلانات العامة}
نهاية؛
var
Form1: Tform1 ؛
تطبيق
{$ r *.dfm}
الإجراء tform1.button1click (المرسل: tobject) ؛
var
أنا: عدد صحيح.
Sguid: سلسلة ؛
tmpguid: tguid ؛
يبدأ
لأني: = 0 إلى 10 افعل
يبدأ
إذا كان coCreateguid (tmpguid) = s_ok ثم
Sguid: = GuidToString (TMPGuid)
آخر
showMessage ('إنشاء خطأ GUID!') ؛
ShowMessage (Sguid) ؛
نهاية؛
نهاية؛
نهاية.