【Delphi 基础知识 4】类是如何被实例化的?

在Delphi中，类实例化是通过使用关键字 Create 来完成的。通常，Delphi类都派生自 TObject 类，因此类的实例化是通过调用类的构造函数完成的。

以下是一个简单的例子，演示了如何在Delphi中实例化一个类：

unit MyClassUnit;

interface

type
  TMyClass = class
  private
    FValue: Integer;
  public
    // 构造函数
    constructor Create(AValue: Integer);
    // 其他方法和属性
    function GetValue: Integer;
  end;

implementation

constructor TMyClass.Create(AValue: Integer);
begin
  // 在构造函数中初始化对象的状态
  FValue := AValue;
end;

function TMyClass.GetValue: Integer;
begin
  // 返回对象的属性值
  Result := FValue;
end;

end.

在上述示例中，TMyClass 类有一个构造函数 Create，该构造函数接受一个整数参数，并将其存储在类的私有属性 FValue 中。然后，类还包含一个公共方法 GetValue，用于获取属性的值。

现在，让我们在主程序中实例化这个类：

program ClassInstantiationExample;

uses
  System.SysUtils, MyClassUnit;

var
  MyClassInstance: TMyClass;
  Value: Integer;

begin
  // 实例化类
  MyClassInstance := TMyClass.Create(42);

  try
    // 使用类的方法
    Value := MyClassInstance.GetValue;

    // 显示结果
    Writeln('Value: ', Value);
  finally
    // 释放类的实例
    MyClassInstance.Free;
  end;

  Readln;
end.

在这个例子中，我们使用 TMyClass.Create(42) 创建了一个 TMyClass 类的实例。然后，我们通过调用 MyClassInstance.GetValue 获取属性的值，并在控制台上显示结果。最后，我们使用 MyClassInstance.Free 释放了类的实例，以避免内存泄漏。在Delphi中，释放类实例是通过调用 Free 方法来进行的。