为什么属性值在创建后不保存在对象中？

Question

我写了这个简单的类：

unit Test;

interface

uses
  SysUtils;

type
  TGram = class
  private
    instanceCreated: boolean;
    constructor Create;
  public
    procedure test;
  end;

implementation

constructor TGram.Create;
begin
  instanceCreated := true;
end;

procedure TGram.test;
begin
  if not instanceCreated
    then raise Exception.Create('The object has not been created.');
end;

end.

当我调用方法 test 时，我得到了它没有被创建的异常。

var test: TGram;
begin
    test := TGram.create;
    test.test;
end

在构造函数中，instanceCreated 设置为 true（我相信如此），但是当我稍后尝试访问它时，它不存在。为什么？如何纠正这个问题？

Answer 1

你调用TGram.Create 你调用TObject 的公共构造函数而不是你的构造函数。那是因为您的构造函数是私有的。将您的构造函数公开以查看您想要的行为。

这是对编译提示和警告价值的一个很好的展示。编译器会为你的类发出这个提示：

[dcc32 提示]：H2219 私有符号“创建”已声明但从未使用过

您应该始终注意提示和警告并适当地解决它们。