มันอธิบายไม่ได้
พิมพ์
iInterface1 = อินเทอร์เฟซ
จบ;
tclass1 = คลาส (tinterfacedObject, iinterface1)
Destructor ทำลาย;
จบ;
tform1 = คลาส (tform)
ปุ่ม 1: tbutton;
โพรซีเดอร์แบบฟอร์ม (ผู้ส่ง: tobject);
ขั้นตอน button1click (ผู้ส่ง: tobject);
ส่วนตัว
{ประกาศส่วนตัว}
class1: iinterface1; // โปรดทราบว่านี่คืออินเตอร์เฟส IInterface1 ไม่ใช่คลาส TCLASS1, TCLASS1 ไม่มีปัญหานี้
สาธารณะ
{ประกาศสาธารณะ}
จบ;
การดำเนินการ
{$ r *.dfm}
{tclass1}
destructor tclass1.destroy;
เริ่ม
Showmessage ('ทำลาย!');
สืบทอด;
จบ;
ขั้นตอน TFORM1.FormCreate (ผู้ส่ง: TOBJECT);
เริ่ม
class1: = tclass1.create;
จบ;
ขั้นตอน tform1.button1click (ผู้ส่ง: tobject);
เริ่ม
Class1: = Nil;
// ถ้า Class1 เป็นคลาส TCLASS1 มันจะไม่ข้ามไปทำลาย
//ทำไม? ทำไม
จบ;