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声明了私有符号'Create'，但从未使用

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

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

1 个答案: