将受保护的抽象方法重新定义为私有

时间:2013-02-26 14:18:40

标签: delphi oop

我有一个抽象类,在protected部分中声明了一个抽象方法。 我可以在其子项中将此方法重新定义为私有吗?

从逻辑上看 - 在抽象类中,这种方法应受到保护,以供儿童使用 (仅限儿童); 但是在孩子这个方法可以是私有的,它(方法)不要在这个类的对象之外调用。

我可以这样做吗?

1 个答案:

答案 0 :(得分:1)

你确实可以这样做。

type
  TMyAbstractBase = class
  protected
    procedure Foo; virtual; abstract;
  public
    procedure DoFoo;
  end;

  TMyDerived = class(TMyAbstractBase)
  private
    procedure Foo; override;
  end;

procedure TMyAbstractBase.DoFoo;
begin
  Foo;
end;

procedure TMyDerived.Foo;
begin
  Writeln('TMyDerived.Foo');
end;

然后,以下代码位于不同的单元中,当然不会编译:

var
  obj: TMyDerived;
....
obj.Foo;//[dcc32 Error]: E2361 Cannot access private symbol TMyDerived.Foo

虽然这样做并不是一个好主意。现在考虑这个类,再次在另一个单元中声明。

type
  TMyDerived2 = class(TMyDerived)
  public
    procedure Foo; override;
  end;

procedure TMyDerived2.Foo;
begin
  inherited;//this does nothing
  Writeln('TMyDerived2.Foo');
end;

如果TMyDerived2.Foo执行,则inherited语句不执行任何操作。那是因为TMyDerived.Foo是私有的。

所以,我的建议是,虽然你提议的是可能的,但你不这样做。根据经验,您应该避免降低成员的可见度。