Delphi 中constructor、destructor、property关键字的用法

首先搜索现成的文章学习

原文：https://www.cnblogs.com/guorongtao/p/15132445.html

其次自己理解并总结最常见的用法

1. constructor用来定义构造函数，destructor用来定义析构函数，property用来定义属性。
2. constructor后面一般跟Create，destructor后面一般跟Destroy; override;
3. 创建一个类的同时，构造函数一同执行，一般做一些初始化工作。
4. 释放一个类的同时，析构函数一同执行，一般做一些收尾工作。
5. property关键字用来定义一个属性，如果要读这个属性就调用read后面的私有变量或函数，要写这个属性就调用write后面的私有变量或函数。
   简单代码：

type
  TMyObj = class(TObject)
  private
    FName: string;
    FAge: Cardinal;
    FOnTexChange: TEvent;  { 事件 }
  protected
  public
    constructor Create;  { 构造函数 }
    destructor Destroy; override; { 析构函数 }
  published
    property Name: string read FName write FName; { 发布属性 }
    property Age: Cardinal read FAge write FAge;
    { 发布事件 TEvent}
    property OnTextChange: TEvent read FOnTexChange write FOnTexChange;
  end;

implementation

constructor TMyObj.Create;
begin
  MessageBox(0,PChar('类被创建'),0,0);
end;

destructor TMyObj.Destroy;
begin
  MessageBox(0,PChar('类被释放'),0,0);
  inherited;
end;

外部调用：

procedure TForm1.Button1Click(Sender: TObject);
var
  MyObj: TMyObj;
begin
  MyObj := TMyObj.Create();
  try
    MyObj.Name:='刘备';
    ShowMessage(MyObj.Name);
  finally
    MyObj.Free;
  end;
end;

除了类中使用构造函数与析构函数，在数据结构类型与对象类型中同样可以使用，当然这两个类型无需创建实例就可以使用。

{ 定义结构类型 }
type
  MyRec = record
  private
    FName: string;
    FAge: Cardinal;
  public
    constructor Create(Name: string); { 构造函数 }
    { 这里不能有析构函数 }
    property Age: Cardinal read FAge write FAge; { 公开属性 }
  end;


{ 定义对象类型 }
type
  MyObj = object
  private
    FName: string;
    FAge: Cardinal;
  protected
  public
    constructor Create;  { 构造函数 }
    { 这里不能有析构函数 }
    property Name: string read FName write FName;
    property Age: Cardinal read FAge write FAge;
  end;

外部调用：

procedure TForm1.Button2Click(Sender: TObject);
var
  dRec: MyRec;
begin
  dRec.Create('刘备');
  ShowMessage(dRec.Age.ToString);

end;

procedure TForm1.Button3Click(Sender: TObject);
var
  dObj: MyObj;
begin
  dObj.Create;
  ShowMessage(dObj.Age.ToString);
end;

以后遇到新的用法在添加，先到此为止，正所谓学为所用，用以所学。

标签：FAge,end,read,Delphi,destructor,constructor,property,Create
来源： https://www.cnblogs.com/YXGust/p/16590473.html