Man denke sich folgende Struktur:

zusammenfalten · markieren

Delphi-Quellcode:

//Unit1:
type
  A = Class
  protected
    procedure DoStuffA;
  end;

//Unit2:
type
  B = Class(A)
  private
    FOtherObject : TSomeOtherObject;
  public
    procedure DoStuffB;
  end;

implementation

procedure B.DoStuffB;
begin
  FOtherObject.InstanceOfB.DoStuffA;
end;

//Unit3
type
  C = class (A)
  private
    FOtherObject : TSomeOtherObject;
  public
    procedure DoStuffC;
  end;

implementation

procedure C.DoStuffC;
begin
  FOtherObject.InstanceOfB.DoStuffA;
end;

//Unit99
type
  TSomeOtherObject = Class
  public
    InstanceOfB : B;
  end;

Im Fall der Klasse C spukt der Compiler die Nachricht "Auf protected Symbol A.DoStuffA kann nicht zugegriffen werden".
Im Fall der Klasse B bleibt der Compiler ruhig.

Gibt es hierfür eine sinnvolle Begründung?

Zitat von Rabenrecht:

Gibt es hierfür eine sinnvolle Begründung?

Bei Design. Innerhalb einer Unit ist alles public, außer Du schreibst strict private bzw. strict protected.

......

Aber es sind alles unterschiedliche Units.

B erbt von A, also hat es auch Zugriff auf das Protected von A.

C erbt aber auch von A.

Aber Du rufst ja nicht die Methode von C auf, sondern von dessen interner Instanz von B, und da ist diese protected.

B greift in der der Unit "extern" auf eine Instanz von B zu, wo B deklariert ist, also hat es die unit-lokalen Rechte, wo alles Lokale wie "public" ist (außer bei Strict).
B greift auch "extern" auf eine Instanz von B zu, wo B aber nicht deklariert ist, also hat es die "realen" Rechte, wo es natürlich Protected ist.

markieren

Delphi-Quellcode:

type
  TEditAccess = class(TEdit);

TEditAccess(EineEditInstanz).EineProtectedMethode;

Wie DeddyH schon sagte:
Wenn du direkt auf diese Methode zureifst (Self.DoStuff ), dann siehst du es mit den inneren Rechten der eigenen Klasse, wo es Protected ist, also für dich immer wie public.
Du greifst aber extern auf die Funktion einer "anderen" Instanz drauf zu.

Mit strict protected würde auch B knallen, da damit der unit-lokale Einfluss gebugfixt wurde.
Innerhalb einer Unit ist Alles, was dort deklariert wurde, wie public (mit Ausnahme der Strict-Private und Strict-Protected).