DELPHI8 연산자 오버로딩의 예

유닛 WinForm;

인터페이스

용도

시스템.드로잉, 시스템.컬렉션, 시스템.컴포넌트모델,

시스템.Windows.Forms, 시스템.데이터;

유형

TWinForm = 클래스(System.Windows.Forms.Form)

{$REGION '디자이너 관리 코드'}

엄격한 비공개

/// <요약>

/// 필수 디자이너 변수입니다.

/// </summary>

구성 요소: System.ComponentModel.Container;

버튼1: System.Windows.Forms.Button;

/// <요약>

/// Designer 지원을 위한 필수 메소드 - 수정하지 마세요.

/// 코드 편집기를 사용하여 이 메서드의 내용을 확인합니다.

/// </summary>

절차초기화구성요소;

프로시저 Button1_Click(발신자: System.Object; e: System.EventArgs);

{$ENDREGION}

엄격하게 보호됨

/// <요약>

/// 사용 중인 리소스를 정리합니다.

/// </summary>

절차 Dispose(Disposing: Boolean);

사적인

{비공개 선언}

공공의

생성자 생성;

끝;

//클래스로도 작성할 수 있습니다. 여기서는 레코드를 사용했습니다. 레코드는 값 유형이므로 인스턴스를 생성하는 수고를 덜어줍니다.

TClassTest=기록

공공의

FA:정수;

//오버로드된 "+" 연산자

클래스 연산자 add(A,B:TClassTest):TClassTest;

끝;

[어셈블리: RuntimeRequiredAttribute(TypeOf(TWinForm))]

구현

{$REGION 'Windows Form Designer 생성 코드'}

/// <요약>

/// Designer 지원을 위한 필수 메소드 - 수정하지 마세요.

/// 코드 편집기를 사용하여 이 메서드의 내용을 확인합니다.

/// </summary>

절차 TWinForm.InitializeComponent;

시작하다

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

Self.SuspendLayout;

//

//버튼1

//

Self.Button1.Location := System.드로잉.Point.Create(96, 88);

Self.Button1.Name := '버튼1';

Self.Button1.Size := System.드로잉.Size.Create(392, 112);

Self.Button1.TabIndex := 0;

Self.Button1.Text := '버튼1';

포함(Self.Button1.Click, Self.Button1_Click);

//

//TwinForm

//

Self.AutoScaleBaseSize := System.드로잉.Size.Create(6, 14);

Self.ClientSize := System.드로잉.Size.Create(560, 357);

Self.Controls.Add(Self.Button1);

Self.Name := 'TWinForm';

Self.Text := 'WinForm';

Self.ResumeLayout(False);

끝;

{$ENDREGION}

절차 TWinForm.Dispose(Disposing: Boolean);

시작하다

폐기하는 경우

시작하다

구성 요소 <> nil인 경우

구성요소.Dispose();

끝;

상속받은 Dispose(Disposing);

끝;

생성자 TwinForm.Create;

시작하다

상속된 생성;

//

// Windows Form Designer 지원에 필요합니다.

//

초기화구성요소;

//

// TODO: InitializeComponent 호출 후에 생성자 코드를 추가합니다.

//

끝;

프로시저 TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);

var

A,B,C:TClassTest;

시작하다

A.FA :=1;

B.FA :=2;

C:=A+B; //DELHI8 이전에는 두 구조(또는 클래스) 간에 + 연산을 사용하는 것은 상상할 수 없었습니다.

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

끝;

{TClassTest}

//"+" 연산자 오버로드 구현

클래스 연산자 TClassTest.add(A, B: TClassTest): TClassTest;

시작하다

결과.FA:=A.FA + B.FA;

끝;

끝.