delphi的构造函数和析构函数

海洋浮游生物学

delphi的构造函数的定义是：constructor

create;delphi的析构函数的定义是：destructor destroy；析构函数是不能重载的，但是构造函数是可以重载的。构造函数在重载的时候要在后面加“overload”，例如:constructor create;overload;constructor create(i:integer);overload；注意，只有两个构造函数以上才叫重载，只有一个就不用“overload;”了。默认的构造函数是：constructor create; 如果有重载的话，那么默认的构造函数后面也要加overload，正象上面的例子一样。delphi 构造函数在类外定义在什么位置呢？在implementation的后面。下面给出一个实例，可以从这个实例中看出构造函数的定义：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

越南海洋法type

课题结题报告TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

TMyForm1 = class(TForm1) ／／自定义一个TMyForm1类

public

constructor Create; overload; ／／构造函数有重载

constructor Create(I: Integer); overload; ／／重载一个构造函数

end;

var

碳酸钠溶解度Form1: TForm1;

implementation

{$R *.dfm}

constructor TMyForm1.Create; ／／这里定义构造函数

begin

inherited Create(nil); ／／inherited 表示调用父类的构造函数

end;

世界机械发展史

constructor TMyForm1.Create(I: Integer);

begin

inherited Create(nil);

end;

procedure TForm1.Button1Click(Sender: TObject); var

A: TMyForm1;

begin

jc1A := TMyForm1.Create(1);

A.Show;

end;

end.

本文发布于:2024-09-23 02:18:13，感谢您对本站的认可！

本文链接：https://www.17tex.com/xueshu/434994.html

上一篇：C++实验三构造函数与析构函数

下一篇：C++中new的用法及显示调用析构函数

标签：重载定义函数实例

留言与评论（共有 0 条评论）