二级delphi学习资料大全

下载后可任意编辑DELPHI8 操作符重载的例子unit WinForm; interface uses System.Drawing, System.Collections, System.ComponentModel, System.Windows.Forms, System.Data; type TWinForm = class(System.Windows.Forms.Form) {$REGION \'Designer Managed Code\'} strict private /// /// Required designer variable. /// Components: System.ComponentModel.Container; Button1: System.Windows.Forms.Button; /// /// Required method for Designer support - do not modify /// the contents of this method with the code editor. /// procedure InitializeComponent; procedure Button1_Click(sender: System.Object; e: System.EventArgs); {$ENDREGION} strict protected /// /// Clean up any resources being used. /// procedure Dispose(Disposing: Boolean); override; private { Private Declarations } public constructor Create; end; //写成类也可以,这里我用了记录。由于记录是值类型省去了创建实例的麻烦 TClassTest=record public FA:Integer; //重载了“+”操作符 class operator add(A,B:TClassTest):TClassTest; end; [assembly: RuntimeRequiredAttribute(TypeOf(TWinForm))] implementation {$REGION \'Windows Form Designer generated code\'}下载后可任意编辑 /// /// Required method for Designer support -- do not modify /// the contents of this method with the code editor. /// procedure TWinForm.InitializeComponent; begin Self.Button1 := System.Windows.Forms.Button.Create; Self.SuspendLayout; // // Button1 // 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\'; Include(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\'; Se...