Hmpf?
Kleiner Pseudo code, beide in unterschiedlichen Units damit man wirkliches private und protected hat:
Delphi-Quellcode:
type
Base = class
private
property PrivateDings : ...
protected
property ProtectedDings : ...
public
property PublicDings : ...
end;
Delphi-Quellcode:
type
Descendant = class(Base)
public
procedure DoSomething;
end;
...
procedure Descendant.DoSomething;
begin
PrivateDings := ... // booom
ProtectedDings := ... // gate
PublicDings := ... // gate
end;
Nachdem du das jetzt probiert und mit deinem Code verglichen hast: Kannst du die Frage bitte nochmal wiederholen? Am besten mit einem Beispiel, in dem es (wider Erwarten) nicht geht?