Contoh lebih detail dari bug Delphi yang besar

Berikut adalah contoh lebih rinci dari bug Delphi yang besar.

Saya menyarankan semua orang mencobanya sebanyak mungkin. Saya harap pembahasan mengenai hal itu bisa lebih hidup lagi

Ini bisa membantu semua orang. Ada dua artikel serupa di

http://www.csdn.net/develop/read_article.asp?id=12606

http://www.csdn.net/develop/read_article.asp?id=12525

Di bawah ini adalah contoh kode sumber, Anda dapat bebas bermain-main dengan pengaturannya.

satuan Unit1;

antarmuka

kegunaan

Windows, Pesan, SysUtils, Varian, Kelas, Grafik, Kontrol, Formulir,

Dialog, StdCtrls, Menu, ExtCtrls, jpeg;

jenis

TForm1 = kelas(TForm)

Tombol1: Tombol T;

Menu Utama1: Menu Utama;

xiangya1:TMenuItem;

Gambar1: Gambar;

Bentuk1: Bentuk T;

Tombol Prosedur1Klik(Pengirim: TObject);

procedure xiangya1Click(Pengirim: TObject);

prosedur Image1Click(Pengirim: TObject);

prosedur Shape1MouseDown(Pengirim: TObject; Tombol: TMouseButton;

Pergeseran: TShiftState; X, Y: Integer);

pribadi

{Deklarasi pribadi}

publik

{Pernyataan publik}

akhir;

var

Formulir1: TForm1;

jenis

TxObject = kelas

destruktor Hancurkan;timpa;

akhir;

pelaksanaan

{$R *.dfm}

prosedur TForm1.Button1Click(Pengirim: TObject);

var

x: Objek Tx;

mulai

x := TxObject.Buat;

ShowMessage('xiangya');

x.Gratis;

akhir;

{TxObjek}

destruktor TxObject.Destroy;

mulai

Kotak Pesan(0, PChar('TxObject'),'Gratis',MB_OK);

diwariskan;

akhir;

procedure TForm1.xiangya1Click(Pengirim: TObject);

var

x: Objek Tx;

mulai

x := TxObject.Buat;

ShowMessage('xiangya');

x.Gratis;

akhir;

prosedur TForm1.Image1Click(Pengirim: TObject);

var

x: Objek Tx;

mulai

// x := TxObject.Buat;

// Tampilkan Pesan('xiangya');

x.Gratis;

akhir;

procedure TForm1.Shape1MouseDown(Pengirim: TObject; Tombol: TMouseButton;

Pergeseran: TShiftState; X, Y: Integer);

var

xx: Objek Tx;

mulai

// xx := TxObject.Buat;

ShowMessage('xiangya');

xx.Gratis;

akhir;

akhir