正在阅读：基础实例:DELPHI8操作符重载基础实例:DELPHI8操作符重载

2004-03-05 14:49 出处：CSDN 作者：wr960204 责任编辑：linjixiong

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';
Self.Text := 'WinForm';
Self.ResumeLayout(False);
end;
{$ENDREGION}

procedure TWinForm.Dispose(Disposing: Boolean);
begin
if Disposing then

察看评论详细内容我要发表评论