delphi - 让 getter 返回私有(private) var 属性的值

Question

说我有

type
  TLight = class
  private
    Ftimer : TTimer;
    property IsAutoRotating: Boolean read Ftimer.Enabled;

显然，这不会编译，但为什么不编译以及如何解决这个问题(最好不要将该状态保存在单独的 var.

Answer 1

您的代码不会编译，因为属性 read 和 write 说明符必须引用类的字段或方法。 Ftimer.Enabled这些都不是。

实现 IsAutoRotating属性，您需要创建一个 getter 函数:

type
  TLight = class
  private
    Ftimer : TTimer;
    function GetIsAutoRotating: Boolean;
  public
    property IsAutoRotating: Boolean read GetIsAutoRotating;
  end;

function TLight.GetIsAutoRotating : Boolean;
begin
  Result := Ftimer.Enabled;
end;