مثال على التحميل الزائد لمشغل DELPHI8

وحدة WinForm؛

واجهة

الاستخدامات

رسم النظام، مجموعات النظام، نموذج مكون النظام،

System.Windows.Forms، System.Data؛

يكتب

TWinForm = فئة (System.Windows.Forms.Form)

{$REGION "الرمز المُدار بواسطة المصمم"}

خاصة صارمة

/// <الملخص>

/// متغير المصمم المطلوب.

/// </الملخص>

المكونات: System.ComponentModel.Container؛

Button1: System.Windows.Forms.Button؛

/// <الملخص>

/// الطريقة المطلوبة لدعم المصمم - لا تقم بتعديلها

/// محتويات هذه الطريقة مع محرر الكود.

/// </الملخص>

الإجراءInitializeComponent;

الإجراء Button1_Click(sender: System.Object; e: System.EventArgs);

{$ENDREGION}

محمية بشكل صارم

/// <الملخص>

/// تنظيف أي موارد مستخدمة.

/// </الملخص>

التخلص من الإجراء (التخلص: تجاوز منطقي)؛

خاص

{الإقرارات الخاصة}

عام

إنشاء المنشئ؛

نهاية؛

// يمكن أيضًا كتابته كفصل دراسي. هنا استخدمت السجلات. نظرًا لأن السجل هو نوع قيمة، فإنه يوفر مشكلة إنشاء مثيل.

TClassTest=record

عام

اتحاد كرة القدم:عدد صحيح؛

//مشغل "+" مثقل

إضافة مشغل الفئة (A، B: TClassTest): TClassTest؛

نهاية؛

[التجميع: RuntimeRequiredAttribute(TypeOf(TWinForm))]

تطبيق

{$REGION 'الكود الذي تم إنشاؤه بواسطة Windows Form Designer'}

/// <الملخص>

/// الطريقة المطلوبة لدعم المصمم - لا تقم بتعديلها

/// محتويات هذه الطريقة مع محرر الكود.

/// </الملخص>

الإجراء TWinForm.InitializeComponent؛

يبدأ

Self.Button1 := System.Windows.Forms.Button.Create;

Self.SuspendLayout;

//

//زر1

//

Self.Button1.Location := System.Drawing.Point.Create(96, 88);

Self.Button1.Name := 'Button1';

Self.Button1.Size := System.Drawing.Size.Create(392, 112);

Self.Button1.TabIndex := 0;

Self.Button1.Text := 'Button1';

تضمين(Self.Button1.Click, Self.Button1_Click);

//

//TWinForm

//

Self.AutoScaleBaseSize := System.Drawing.Size.Create(6, 14);

Self.ClientSize := System.Drawing.Size.Create(560, 357);

Self.Controls.Add(Self.Button1);

Self.Name := 'TWinForm';

Self.Text := 'WinForm';

Self.ResumeLayout(False);

نهاية؛

{$ENDREGION}

إجراء TWinForm.Dispose(التخلص: منطقي)؛

يبدأ

إذا التخلص ثم

يبدأ

إذا كانت المكونات <> لا شيء إذن

Components.Dispose();

نهاية؛

التخلص الموروث(التخلص)؛

نهاية؛

منشئ TWinForm.Create؛

يبدأ

إنشاء موروث؛

//

// مطلوب لدعم Windows Form Designer

//

this.InitializeComponent;

//

// TODO: أضف أي كود مُنشئ بعد استدعاءInitializeComponent

//

نهاية؛

الإجراء TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);

فار

أ، ب، ج: تي كلاس تيست؛

يبدأ

أ.فا :=1;

ب.فا :=2;

C:=A+B; // لم يكن من الممكن تصور استخدام + بين بنيتين (أو فئتين) قبل DELHI8

system.Windows.Forms.MessageBox.Show(System.Convert.ToString(C.FA) );

نهاية؛

{تكلاستيست}

// تنفيذ التحميل الزائد على عامل التشغيل "+".

مشغل الفئة TClassTest.add(A, B: TClassTest): TClassTest;

يبدأ

Result.FA:=A.FA + B.FA؛

نهاية؛

نهاية.