модуль WinForm;
интерфейс
использует
System.Drawing, System.Collections, System.ComponentModel,
Система.Windows.Формы, Система.Данные;
тип
TWinForm = класс(System.Windows.Forms.Form)
{$REGION 'Код, управляемый дизайнером'}
строгий Частный
/// <сводка>
/// Обязательная переменная дизайнера.
/// </сводка>
Компоненты: System.ComponentModel.Container;
Кнопка1: Система.Windows.Forms.Button;
/// <сводка>
/// Обязательный метод для поддержки Designer - не изменять
/// содержимое этого метода с помощью редактора кода.
/// </сводка>
процедураИнициализацияКомпонента;
процедура Button1_Click (отправитель: System.Object; e: System.EventArgs);
{$ENDREGION}
строго охраняемый
/// <сводка>
/// Очистите все используемые ресурсы.
/// </сводка>
процедура Dispose (Распоряжение: логическое переопределение);
частный
{Частные заявления}
общественный
конструктор Создать;
конец;
//Это также можно записать как класс. Здесь я использовал записи. Поскольку запись является типом значения, это избавляет от необходимости создавать экземпляр.
TClassTest=запись
общественный
ФА: Целое число;
//Перегруженный оператор "+"
Оператор класса add(A,B:TClassTest):TClassTest;
конец;
[сборка: RuntimeRequiredAttribute(TypeOf(TWinForm))]
выполнение
{$REGION 'Код, сгенерированный конструктором форм Windows'}
/// <сводка>
/// Обязательный метод для поддержки Designer — не изменять
/// содержимое этого метода с помощью редактора кода.
/// </сводка>
процедура TWinForm.InitializeComponent;
начинать
Self.Button1 := System.Windows.Forms.Button.Create;
Self.SuspendLayout;
//
//Кнопка1
//
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';
Включить(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);
конец;
{$ENDREGION}
процедура TWinForm.Dispose(Dispositing: Boolean);
начинать
если Утилизировать, то
начинать
если Компоненты <> ноль, то
Компоненты.Dispose();
конец;
унаследовано Dispose(Удаление);
конец;
конструктор TWinForm.Create;
начинать
унаследовано Создать;
//
// Требуется для поддержки конструктора форм Windows
//
ИнициализироватьКомпонент;
//
// TODO: добавить любой код конструктора после вызова InitializeComponent
//
конец;
процедура TWinForm.Button1_Click(отправитель: System.Object; e: System.EventArgs);
вар
A,B,C:TClassTest;
начинать
А.ФА :=1;
Б.ФА :=2;
C:=A+B //Использование операции + между двумя структурами (или классами) было невообразимо до DELHI8;
system.Windows.Forms.MessageBox.Show(System.Convert.ToString(C.FA) );
конец;
{ТКлассТест}
//Реализация перегрузки оператора "+"
оператор класса TClassTest.add(A, B: TClassTest): TClassTest;
начинать
Результат.FA:=A.FA + B.FA;
конец;
конец.