标签：FAge end read Delphi destructor constructor property Create

首先搜索现成的文章学习

原文：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

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。