DELPHI8操作符重载的例子

你姥姥的亲戚

你姥姥的亲戚

2016-02-19 15:15

给自己一点时间接受自己,爱自己,趁着下午茶的时间来学习图老师推荐的DELPHI8操作符重载的例子,过去的都会过去,迎接崭新的开始,释放更美好的自己。
unit WinForm;interfaceuses System.Drawing, System.Collections, System.ComponentModel, System.Windows.Forms, System.Data;type TWinForm = class(System.Windows.Forms.Form) {$REGION 'Designer Managed Code'} strict private  /// summary  /// Required designer variable.  /// /summary  Components: System.ComponentModel.Container;  Button1: System.Windows.Forms.Button;  /// summary  /// Required method for Designer support - do not modify  /// the contents of this method with the code editor.  /// /summary  procedure InitializeComponent;  procedure Button1_Click(sender: System.Object; e: System.EventArgs); {$ENDREGION} strict protected  /// summary  /// Clean up any resources being used.  /// /summary  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'}/// summary/// Required method for Designer support -- do not modify/// the contents of this method with the code editor./// /summaryprocedure 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'; Self.Text := 'WinForm'; Self.ResumeLayout(False);end;{$ENDREGION}procedure TWinForm.Dispose(Disposing: Boolean);begin if Disposing then begin  if Components  nil then   Components.Dispose(); end; inherited Dispose(Disposing);end;constructor TWinForm.Create;begin inherited Create; // // Required for Windows Form Designer support // InitializeComponent; // // TODO: Add any constructor code after InitializeComponent call //end;procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);var A,B,C:TClassTest;begin A.FA :=1; B.FA :=2; C:=A+B; //两个结构(或者类)用+操作,在DELHI8以前是不可想象的 system.Windows.Forms.MessageBox.Show(System.Convert.ToString(C.FA) );end;{ TClassTest }//重载+操作符的实现class operator TClassTest.add(A, B: TClassTest): TClassTest;begin Result.FA:=A.FA + B.FA;end;end.
展开更多 50%)
分享

猜你喜欢

DELPHI8操作符重载的例子

编程语言 网络编程
DELPHI8操作符重载的例子

C++ 中重载 + 操作符的正确方法

C语言教程 C语言函数
C++ 中重载 + 操作符的正确方法

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

More Effective C++:不要重载的操作符

编程语言 网络编程
More Effective C++:不要重载的操作符

JavaScript操作符以及操作符优先级

Web开发
JavaScript操作符以及操作符优先级

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

C++中点操作符和箭头操作符的使用详解

编程语言 网络编程
C++中点操作符和箭头操作符的使用详解

equals与"=="操作符的比较

编程语言 网络编程
equals与

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Delphi2007 先睹为快!

Delphi2007 先睹为快!

在IE7下生成高质量CSS缩略图

在IE7下生成高质量CSS缩略图
下拉加载更多内容 ↓