Einsatz der Access Modifier

[Kay]

Hallo,

ich habe eine Frage zur Objektorientierung. Es gibt ja die Access Modifier private, public und protected. Das Schlüsselwort published lasse ich an dieser Stelle mal außer Acht.
Nun sollte es so sein, dass mit "public" deklarierte Eigenschaften und Methoden auch von anderen Klassen aus zugreifbar sind, als "private" nur innerhalb der eigenen Klasse und "protected" in der Klassenhierarchie. Das ist doch in Free Pascal ebenfalls so oder?
Was mich nämlich wundert ist, dass folgender Code fehlerfrei kompiliert werden kann (FPC 2.6.0) und die Anwendung einwandfrei funktioniert:

Code: Alles auswählen

interface
 
type
  TPerson = class
  private
    FFirstname: String;
    FLastname: String;
  public
    constructor Create;
  end;
 
  TAuthor = class(TPerson)
  private
    FBook: String;
    function GetText: String;
  public
    constructor Create;
    property Text: String read GetText;
  end;
 
implementation
 
constructor TPerson.Create;
begin
  FFirstname := 'Stephen';
  FLastname := 'King';
end;
 
constructor TAuthor.Create;
begin
  inherited Create;
  FBook := 'The Green Mile';
end;
 
function TAuthor.GetText: String;
begin
  Result := FLastname + ', ' + FFirstname + ': ' + FBook;
end;

Normalerweise sollte diese Implementierung doch nur funktionieren, wenn die Attribute in TPerson als "protected" deklariert sind...

Viele Grüße
Kay

[Socke]

Nun sollte es so sein, dass mit "public" deklarierte Eigenschaften und Methoden auch von anderen Klassen aus zugreifbar sind, als "private" nur innerhalb der eigenen Klasse und "protected" in der Klassenhierarchie. Das ist doch in Free Pascal ebenfalls so oder?

Was meinst du mit "ebenfalls"?

"Private" heißt so viel wie: alles in dieser Unit darf darauf zugreifen.
"strict private" dagegen: nur diese Klasse (Nur Gültig in Verbindung mit den Schlüsselwort class; alle anderen gibt es auch bei object)
"Protected" erweitert private: alles in dieser Unit und alle abgeleiteten Klassen (in anderen Units)
"Public'" erweitert das ganze dann noch einmal: alles in dieser Unit und alle abgeleiteten Klassen und alles andere (d.h. du kannst von überall darauf zugreifen)
Der Vollständigkeit halber -- "Published": Der Compiler erzeugt Run Time Type Information (RTTI), sodass du erst zur Laufzeit wissen musst, worauf du eigentlich zugreifst (impliziert public).

Dokumenation:
http://www.freepascal.org/docs-html/ref/refse31.html
http://www.freepascal.org/docs-html/ref ... 5-750005.6

[Kay]

Mit "ebenfalls" meinte ich: Wie bei anderen objektorientierten Sprachen z. B. Java oder C#.
Aber mir war nicht klar, dass sich die Begriffe in Free Pascal nicht nur auf Klassen, sondern auf ganze Units beziehen. Dann ist die Sache natürlich klar. Vielen Dank!

[m.fuchs]

Mit "ebenfalls" meinte ich: Wie bei anderen objektorientierten Sprachen z. B. Java oder C#.

Naja, das ist nicht so leicht zu vergleichen. VB.NET kennt zum Beispiel Friend (ist wohl in C# internal). Damit kann innerhalb der selben Assembly auf di Eigenschaften und Methoden zugegriffen werden. Um etwas gleichwertiges zu haben, braucht das Framework aber eben auch ein Assembly-Konzept. Und genauso kann man das private von ObjectPascal nicht auf Sprachen übertragen, die das Unit-Konzept nicht haben.