delphi – 它是否违反了接口属性访问器的封装公开？

因此getter和setter方法封装了实例成员,属性封装了getter和setter方法.

但是,在定义接口时,我们将公开这些方法：

ICounter = interface
  // I wouldn't want to specify these 2 methods in the interface,but I'm forced to
  function GetCount: Integer;
  procedure SetCount(Value: Integer);

  property Count: Integer read GetCount write SetCount;
end;

实现具体类：

TCounter = class(TInterfacedObject,ICounter)
private
  function GetCount: Integer;
  procedure SetCount(Value: Integer);
public
  property Count: Integer read GetCount write SetCount;
end

使用它：

var
  Counter: ICounter;
begin
  Counter := TCounter.Create;
  Counter.Count := 0; // Ok,that's my public property

  // The access should me made by the property,not by these methods
  Counter.SetCount(Counter.GetCount + 1);
end;

如果属性封装了getter / setter私有方法,这不是违规吗？吸气剂和固定剂是具体类的内部,不应暴露.