أمثلة أكثر تفصيلاً لأخطاء دلفي الكبيرة

فيما يلي مثال أكثر تفصيلاً لخلل كبير في دلفي.

أقترح على الجميع تجربتها قدر الإمكان. وآمل أن يكون النقاش حول هذا الموضوع أكثر حيوية، وذلك

يمكن أن يكون من بعض المساعدة للجميع. هناك مقالتان مماثلتان في

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: TButton؛

القائمة الرئيسية 1: القائمة الرئيسية؛

xiangya1:TMenuItem;

Image1: تيماج؛

الشكل 1: الشكل؛

الإجراء Button1Click(Sender: TObject);

الإجراء xiangya1Click(Sender: TObject);

الإجراء Image1Click(Sender: TObject);

إجراء Shape1MouseDown(Sender: TObject; الزر: TMouseButton;

التحول: TShiftState؛ X، Y: عدد صحيح)؛

خاص

{تصريحات خاصة}

عام

{التصريحات العامة}

نهاية؛

فار

Form1: TForm1؛

يكتب

TxObject = class

تدمير المدمر؛ تجاوز؛

نهاية؛

تطبيق

{$R *.dfm}

الإجراء TForm1.Button1Click(Sender: TObject);

فار

x: TxObject;

يبدأ

x := TxObject.Create;

ShowMessage('xiangya');

x.Free;

نهاية؛

{تكسوبجيكت}

المدمر TxObject.Destroy;

يبدأ

messageBox(0, PChar('TxObject'),'Free',MB_OK);

موروث؛

نهاية؛

الإجراء TForm1.xiangya1Click(Sender: TObject);

فار

x: TxObject;

يبدأ

x := TxObject.Create;

ShowMessage('xiangya');

x.Free;

نهاية؛

الإجراء TForm1.Image1Click(Sender: TObject);

فار

x: TxObject;

يبدأ

// x := TxObject.Create;

// ShowMessage('xiangya');

x.Free;

نهاية؛

الإجراء TForm1.Shape1MouseDown(Sender: TObject; الزر: TMouseButton;

التحول: TShiftState؛ X، Y: عدد صحيح)؛

فار

xx: TxObject;

يبدأ

// xx := TxObject.Create;

ShowMessage('xiangya');

xx.Free;

نهاية؛

نهاية