Einheit WinForm;
Schnittstelle
verwendet
System.Drawing, System.Collections, System.ComponentModel,
System.Windows.Forms, System.Data;
Typ
TWinForm = class(System.Windows.Forms.Form)
{$REGION 'Vom Designer verwalteter Code'}
streng privat
/// <Zusammenfassung>
/// Erforderliche Designervariable.
/// </summary>
Komponenten: System.ComponentModel.Container;
Button1: System.Windows.Forms.Button;
/// <Zusammenfassung>
/// Erforderliche Methode für Designer-Unterstützung – nicht ändern
/// den Inhalt dieser Methode mit dem Code-Editor.
/// </summary>
procedureInitializeComponent;
procedure Button1_Click(sender: System.Object; e: System.EventArgs);
{$ENDREGION}
streng geschützt
/// <Zusammenfassung>
/// Bereinigen Sie alle verwendeten Ressourcen.
/// </summary>
procedure Dispose(Entsorgen: Boolean);
Privat
{Private Erklärungen}
öffentlich
Konstruktor Erstellen;
Ende;
//Es kann auch als Klasse geschrieben werden. Da es sich bei dem Datensatz um einen Werttyp handelt, erspart er sich die Mühe, eine Instanz zu erstellen.
TClassTest=Datensatz
öffentlich
FA:Integer;
//Überladener „+“-Operator
Klassenoperator add(A,B:TClassTest):TClassTest;
Ende;
[Assembly: RuntimeRequiredAttribute(TypeOf(TWinForm))]
Durchführung
{$REGION 'Windows Form Designer generierter Code'}
/// <Zusammenfassung>
/// Erforderliche Methode für Designer-Unterstützung – nicht ändern
/// den Inhalt dieser Methode mit dem Code-Editor.
/// </summary>
Prozedur TWinForm.InitializeComponent;
beginnen
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);
Ende;
{$ENDREGION}
procedure TWinForm.Dispose(Disposing: Boolean);
beginnen
wenn Entsorgen dann
beginnen
Wenn Komponenten <> Null, dann
Components.Dispose();
Ende;
geerbt Dispose(Entsorgen);
Ende;
Konstruktor TWinForm.Create;
beginnen
geerbtes Erstellen;
//
// Erforderlich für die Unterstützung von Windows Form Designer
//
InitializeComponent;
//
// TODO: Fügen Sie nach dem InitializeComponent-Aufruf einen beliebigen Konstruktorcode hinzu
//
Ende;
procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);
var
A,B,C:TClassTest;
beginnen
A.FA :=1;
B.FA :=2;
C:=A+B; //Die Verwendung einer +-Operation zwischen zwei Strukturen (oder Klassen) war vor DELHI8 undenkbar
system.Windows.Forms.MessageBox.Show(System.Convert.ToString(C.FA) );
Ende;
{TClassTest}
//Implementierung der Überladung des „+“-Operators
Klassenoperator TClassTest.add(A, B: TClassTest): TClassTest;
beginnen
Ergebnis.FA:=A.FA + B.FA;
Ende;
Ende.