ตัวอย่างการโอเวอร์โหลดของโอเปอเรเตอร์ DELPHI8

หน่วย WinForm;

อินเตอร์เฟซ

การใช้งาน

System. Drawing, System.Collections, System.ComponentModel,

System.Windows.Forms, System.Data;

พิมพ์

TWinForm = คลาส (System.Windows.Forms.Form)

{$REGION 'โค้ดที่ออกแบบโดยนักออกแบบ'}

เอกชนที่เข้มงวด

/// <สรุป>

/// ตัวแปรตัวออกแบบที่จำเป็น

/// </สรุป>

ส่วนประกอบ: System.ComponentModel.Container;

Button1: System.Windows.Forms.Button;

/// <สรุป>

/// วิธีการที่จำเป็นสำหรับการสนับสนุน Designer - ห้ามแก้ไข

/// เนื้อหาของวิธีนี้ด้วยโปรแกรมแก้ไขโค้ด

/// </สรุป>

ขั้นตอนInitializeComponent;

ขั้นตอน Button1_Click (ผู้ส่ง: System.Object; e: System.EventArgs);

{$ENDREGION}

ได้รับการคุ้มครองอย่างเข้มงวด

/// <สรุป>

/// ทำความสะอาดทรัพยากรใด ๆ ที่ใช้

/// </สรุป>

ขั้นตอนการกำจัด (การกำจัด: แทนที่บูลีน);

ส่วนตัว

{คำประกาศส่วนตัว}

สาธารณะ

ตัวสร้าง สร้าง;

จบ;

//มันสามารถเขียนเป็นคลาสได้เช่นกัน ในที่นี้ฉันใช้บันทึก เนื่องจากเรกคอร์ดเป็นประเภทค่า จึงช่วยประหยัดปัญหาในการสร้างอินสแตนซ์

TClassTest=บันทึก

สาธารณะ

เอฟเอ:จำนวนเต็ม;

//ตัวดำเนินการ "+" โอเวอร์โหลด

ตัวดำเนินการคลาสเพิ่ม (A,B:TClassTest):TClassTest;

จบ;

[แอสเซมบลี: RuntimeRequiredAttribute (TypeOf (TWinForm))]

การดำเนินการ

{$REGION 'รหัสที่สร้างโดย Windows Form Designer'}

/// <สรุป>

/// วิธีการที่จำเป็นสำหรับการสนับสนุน 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);

ตนเอง 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(เท็จ);

จบ;

{$ENDREGION}

ขั้นตอน TWinForm.Dispose (การกำจัด: บูลีน);

เริ่ม

ถ้าจะทิ้งแล้ว

เริ่ม

ถ้า Components <> ไม่มีเลย

ส่วนประกอบทิ้ง();

จบ;

การกำจัดที่สืบทอดมา (การกำจัด);

จบ;

ตัวสร้าง TWinForm.Create;

เริ่ม

สืบทอดสร้าง;

-

// จำเป็นสำหรับการสนับสนุน Windows Form Designer

-

เริ่มต้นส่วนประกอบ;

-

// สิ่งที่ต้องทำ: เพิ่มโค้ด Constructor หลังจากการเรียก InitializeComponent

-

จบ;

ขั้นตอน TWinForm.Button1_Click (ผู้ส่ง: System.Object; e: System.EventArgs);

var

A,B,C:TClassTest;

เริ่ม

อ.เอฟเอ :=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;

จบ;

จบ.