นี่คือตัวอย่างโดยละเอียดเพิ่มเติมของจุดบกพร่องขนาดใหญ่ของ Delphi
ฉันขอแนะนำให้ทุกคนพยายามให้มากที่สุด ฉันหวังว่าการอภิปรายเกี่ยวกับเรื่องนี้จะมีชีวิตชีวามากขึ้น
มันสามารถช่วยทุกคนได้ มีบทความที่คล้ายกันสองบทความใน
http://www.csdn.net/develop/read_article.asp?id=12606
http://www.csdn.net/develop/read_article.asp?id=12525
ด้านล่างนี้คือตัวอย่างซอร์สโค้ด คุณสามารถเล่นกับการตั้งค่าได้อย่างอิสระ
หน่วย หน่วยที่ 1;
อินเตอร์เฟซ
การใช้งาน
Windows, ข้อความ, SysUtils, ตัวแปร, คลาส, กราฟิก, การควบคุม, แบบฟอร์ม,
กล่องโต้ตอบ, StdCtrls, เมนู, ExtCtrls, jpeg;
พิมพ์
TForm1 = คลาส (TForm)
Button1: T ปุ่ม;
เมนูหลัก1: TMainMenu;
xiangya1:TMenuItem;
ภาพที่ 1: TImage;
Shape1: รูปร่าง;
ขั้นตอน Button1Click (ผู้ส่ง: TObject);
ขั้นตอน xiangya1Click (ผู้ส่ง: TObject);
ขั้นตอน Image1Click (ผู้ส่ง: TObject);
ขั้นตอน Shape1MouseDown (ผู้ส่ง: TObject; ปุ่ม: TMouseButton;
Shift: TShiftState; X, Y: จำนวนเต็ม);
ส่วนตัว
{ประกาศส่วนตัว}
สาธารณะ
{ประกาศสาธารณะ}
จบ;
var
แบบฟอร์ม 1: TForm1;
พิมพ์
TxObject = คลาส
destructor ทำลาย; แทนที่;
จบ;
การดำเนินการ
{$R *.dfm}
ขั้นตอน TForm1.Button1Click (ผู้ส่ง: TObject);
var
x: Txวัตถุ;
เริ่ม
x := TxObject สร้าง;
ShowMessage('xiangya');
x.ฟรี;
จบ;
{Txวัตถุ}
ตัวทำลาย TxObject.Destroy;
เริ่ม
MessageBox(0, PChar('TxObject'),'ฟรี',MB_OK);
สืบทอด;
จบ;
ขั้นตอน TForm1.xiangya1Click (ผู้ส่ง: TObject);
var
x: Txวัตถุ;
เริ่ม
x := TxObject สร้าง;
ShowMessage('xiangya');
x.ฟรี;
จบ;
ขั้นตอน TForm1.Image1Click (ผู้ส่ง: TObject);
var
x: Txวัตถุ;
เริ่ม
// x := TxObject.Create;
// ShowMessage('xiangya');
x.ฟรี;
จบ;
ขั้นตอน TForm1.Shape1MouseDown (ผู้ส่ง: TObject; ปุ่ม: TMouseButton;
Shift: TShiftState; X, Y: จำนวนเต็ม);
var
xx: TxObject;
เริ่ม
// xx := TxObject.Create;
ShowMessage('xiangya');
xx.ฟรี;
จบ;
จบ