DELPHI8操作符重载的例子

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.

上一页  [1] [2]