Ejemplo de sobrecarga del operador DELPHI8

unidad WinForm;

interfaz

usos

Sistema.Dibujo, Sistema.Colecciones, Sistema.ComponentModel,

Sistema.Windows.Forms, Sistema.Datos;

tipo

TWinForm = clase(System.Windows.Forms.Form)

{$REGION 'Código administrado por el diseñador'}

estricto privado

/// <resumen>

/// Variable de diseñador requerida.

/// </summary>

Componentes: System.ComponentModel.Container;

Botón1: Sistema.Windows.Forms.Botón;

/// <resumen>

/// Método requerido para la compatibilidad con Designer: no modificar

/// el contenido de este método con el editor de código.

/// </summary>

procedimientoInitializeComponent;

procedimiento Button1_Click(remitente: System.Object; e: System.EventArgs);

{$ENDREGIÓN}

estrictamente protegido

/// <resumen>

/// Limpiar cualquier recurso que se esté utilizando.

/// </summary>

procedimiento Dispose(Disposing: Boolean override);

privado

{Declaraciones Privadas}

público

constructor Crear;

fin;

// También se puede escribir como una clase. Aquí utilicé registros. Dado que el registro es un tipo de valor, evita la molestia de crear una instancia.

TClassTest=registro

público

FA:Entero;

//Operador "+" sobrecargado

operador de clase agregar(A,B:TClassTest):TClassTest;

fin;

[ensamblado: RuntimeRequiredAttribute(TypeOf(TWinForm))]

implementación

{$REGION 'Código generado por el Diseñador de formularios de Windows'}

/// <resumen>

/// Método requerido para la compatibilidad con Designer: no modificar

/// el contenido de este método con el editor de código.

/// </summary>

procedimiento TWinForm.InitializeComponent;

comenzar

Self.Button1 := System.Windows.Forms.Button.Create;

Diseño de suspensión automática;

//

//Botón1

//

Self.Button1.Location := System.Drawing.Point.Create(96, 88);

Self.Button1.Name := 'Botón1';

Self.Button1.Size := System.Drawing.Size.Create(392, 112);

Self.Button1.TabIndex: = 0;

Self.Button1.Text := 'Botón1';

Incluir (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 (Falso);

fin;

{$ENDREGIÓN}

procedimiento TWinForm.Dispose(Eliminación: booleano);

comenzar

si se desecha entonces

comenzar

si Componentes <> nulo entonces

Componentes.Dispose();

fin;

heredado Disponer(Disponer);

fin;

constructor TWinForm.Create;

comenzar

heredado Crear;

//

// Requerido para la compatibilidad con Windows Form Designer

//

InicializarComponente;

//

// TODO: Agregar cualquier código de constructor después de la llamada a InitializeComponent

//

fin;

procedimiento TWinForm.Button1_Click(remitente: System.Object; e: System.EventArgs);

var

A, B, C: Prueba de clase T;

comenzar

A.FA :=1;

B.FA :=2;

C:=A+B; //Usar la operación + entre dos estructuras (o clases) era inimaginable antes de DELHI8

system.Windows.Forms.MessageBox.Show(System.Convert.ToString(C.FA));

fin;

{TClassPrueba}

//Implementación de la sobrecarga del operador "+"

operador de clase TClassTest.add(A, B: TClassTest): TClassTest;

comenzar

Resultado.FA:=A.FA + B.FA;

fin;

fin.