【问题标题】:Redefine protected abstract method as private将受保护的抽象方法重新定义为私有
【发布时间】:2013-02-26 22:36:33
【问题描述】:

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

从逻辑上看——在抽象类中,这个方法应该被保护为对孩子可用 (仅限儿童); 但是在孩子中,这个方法可以是私有的,它(方法)不会在这个类的对象之外调用。

我可以这样做吗?

【问题讨论】:

  • 一种稍微不同的解决方案,不太优雅但不依赖于编译器的神秘知识,可能是将方法一分为二 - 给受保护的方法一个可怕的名称,以警告潜在的调用者并提供访问它通过一个带有“正常”名称的小包装方法。
  • 添加:不要将受保护的方法命名为丑陋,而是将其标记为deprecated。用{$WARN SYMBOL_DEPRECATED OFF}/{$WARN SYMBOL_DEPRECATED ON} 包围一个允许的呼叫站点(即在私有包装器中)。

标签: delphi oop


【解决方案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 是私有的。

因此,我的建议是,尽管您提出的建议是可能的,但您不要这样做。根据经验,您应该避免降低成员的知名度。

【讨论】:

  • “位于不同的单位”是这里的一个关键语句,对于初学者来说可能并不完全明显
  • 为什么不使用 strict private 而不是 cmets 呢?
  • TMyAbstractBase(obj).Foo(obj as TMyAbstractBase).Foo 怎么样?看起来像编译器错误。如果你想让一个方法最终密封 - 那么只需标记它。
  • 设为strict private,然后就不再需要不同的单元了。
  • 在 TMyDerived 中将 Foo 重新声明为私有不会产生编译器提示或警告“方法的可见性低于祖先”(或类似的)?
猜你喜欢
  • 2013-10-28
  • 1970-01-01
  • 1970-01-01
  • 2011-07-09
  • 2014-03-04
  • 2015-08-02
  • 2017-06-14
  • 2016-03-19
  • 1970-01-01
相关资源
最近更新 更多