DELPHI8操作符重载的例子

文章作者 100test 发表时间 2011:03:22 18:44:42
来源 100Test.Com百考试题网


  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
  //

相关文章


计算机二级DELPHI辅导:在delphi中设置工作目录
delphi的Desktop主窗体介绍
用Delphi实现整个网站图片的极速下载
在Delphi中获取和修改文件的时间
DELPHI8操作符重载的例子
Delphi实现对注册表的监视和扫描
使用Delphi创建IIS虚拟目录
计算机二级辅导:增强MIDAS的安全性
获得远程或本地机器的网卡的MAC
澳大利亚华人论坛
考好网
日本华人论坛
华人移民留学论坛
英国华人论坛