Delphi - Eigenschaften

[jsphde]

Guten Abend allerseits,

ich hätte eine Frage zu Klasseneigenschaften in Delphi:

Beispiel:

Delphi-Quellcode:

type
  TTest = class
    public
      Eins: String;
      property Zwei //[...]
    published
    protected
    private      
  end;

Man kann ja auf beides zugreifen, sobald man eine Instanz erstellt hat.
Meine Frage dazu:
Was ist der Unterschied zwischen Eins und Zwei ? Man kann von außen auf beide zugreifen, sie lesen und ggf. überschreiben.
(Eventuell ist der Verwendungszweck unterschiedlich, wenn Ja, wann verwendet man Eins wann Zwei?)
Soweit ich weiß, wird beides als "Eigenschaft" bezeichnet.

Mit freundlichen Grüßen

[mkinzler]

Properties existieren nur im Code nicht zur Laufzeit. Sie dienen als "Trick" um einerseits information hiding/blackbox zu gewährleisten und andererseits "direkten" Zugriff auf Eigenschaften zu bieten.

Delphi-Quellcode:

type
  TTest = class
    private
      FEins: Integer;
      function getZwei: Integer;
    published
      property Eins: Integer read FEins write FEins;
      property Zwei: Integer read getZwei;
   end;

...
   Test := TTest.Create;

Delphi-Quellcode:

   
   Test.Eins = 200;
   h := Test.Zwei;

wird zu

Delphi-Quellcode:

   
   Test.FEins = 200;
   h := Test.getZwei;

[jsphde]

Vielen Dank für deine Antwort.

Also könnte man sagen, dass man "Eins" nur innerhalb der Klasse verwendet und von außen
über "Zwei" (property) darauf zugreift? (In der Praxis)



Mit freundlichen Grüßen

[mkinzler]

Das ist der Unterschied zwischen private (eigentlich nur strict private) und public.
Auf eine private Property kann auch nicht von ausserhalb( der Unit) zugegriffen werden. Auf eine public Eigenschaft aber schon.

Der Compiler ersetzt die Zugriffe auf eine Property mit der angegeben "Funktion": Lesezugriffe mit der bei read Schreibzugriffe mir der bei write.

[jsphde]

Vielen Dank

[himitsu]

Jupp, von der Definition her ist es erstmal rech einfach zu verstehen:

private kann nur die Klasse selber, also auch keine Nachfahren
protected kann nur die Klasse und ihre Nachfahren
public können Alle
und published ist wie public mit Zusatzinfos für das Streaming, also da können auch auch fremde Klassen über die TypeInfo (RTTI) drauf zugreifen.


published: siehe Unit TypInfo sowie TObject.MethodAddress, TObject.MethodName und TObject.FieldAddress.
Für Klassen ab TPersistent/TComponent ist die Standatd-Sichtbarkeit von public auf published geändert > siehe {$TYPEINFO} / {$M+}
Diese Funktionen werden z.B. für das Streaming der DFM verwendet.

Und dann noch der Sonderfall innerhalb der eigenen Unit.
Innerhalb einer Unit ist ALLES dort Deklarierte wie public, also auch fremde Prozeduren und Klassen dürfen auf alles zugreifen.
Darum wurde inzwischen das strict eingeführt, also strict private und strict protected sind nur dort so, wie es die Grunddefinion für private und protected besagt.

[Ghostwalker]

Zusätzlich zu dem oben genannten, kannst du den Zugriff auf Properties genauer steuern, da du Funktionen/Prozeduren für das Lesen und Schreiben einer Property hinterlegen kannst.

Beispiel:

Delphi-Quellcode:

Type
  TTest = Class
  private
     fname : string;
  protected
    Procedure SetName(const value:string);
    function GetName:string;
  public
  published
    Property Name: string read GetName write SetName;
  end;

Implementation
   
   Procedure TTest.SetName(const value:string);
   begin
     if (copy(value,1,2) = 'XX') then
       fname := value;
   end;

   function TTest.GetName:string;
   begin
    result := copy(fname,3);
   end;

In dem Beispiel wird der Wert von Property Name nur gesetzt, wenn der zu setzende Wert mit 'XX' anfängt.
Beim lesenden Zugriff werden die ersten beiden Zeichen weggelassen.

Zugegeben ist das Beispiel nicht sehr sinnvoll, aber sollte die vorgehensweise demonstrieren.

Sinnvolle Anwendungen gibts haufenweise (Prüfungen beim Setzten, Abhängigkeiten verschiedener Properites untereinander....).

[Der schöne Günther]

Was Delphi allerdings fehlt ist der Komfortmechanismus dass die Property z.B. nur von protected beschrieben und von public gelesen werden kann, auch wenn die get.. und set..-Methoden eigentlich schon genau das sagen.

Auch aus dem Grund dass andere Sprachen ganz hervorragend ohne Properties und nur get.. und set..-Methoden auskommen hab ich persönlich nie gesehen was man durch Properties nun gewonnen hat. Außer noch mehr tippen zu dürfen.

[Ghostwalker]

Zitat von Der schöne Günther:

Was Delphi allerdings fehlt ist der Komfortmechanismus dass die Property z.B. nur von protected beschrieben und von public gelesen werden kann, auch wenn die get.. und set..-Methoden eigentlich schon genau das sagen.

Delphi-Quellcode:

  TTest = Class
  private
     fvalue : string;
  protected
     Procedure SetValue(const value:string);
  public
     property Value : String read fvalue write SetValue;

Sowas ?

Zitat von Der schöne Günther:

Auch aus dem Grund dass andere Sprachen ganz hervorragend ohne Properties und nur get.. und set..-Methoden auskommen hab ich persönlich nie gesehen was man durch Properties nun gewonnen hat. Außer noch mehr tippen zu dürfen.

Was hindert dich daran, das in Delphi genauso zu machen ?

Delphi-Quellcode:

   TTest = Class
   private
     fvalue : string;
   public
     function GetValue:string;
     procedure SetValue(const str : String);

[Der schöne Günther]

Zitat von Ghostwalker:

Sowas ?

Ja, das meine ich: Die Property mit ihrem read und write ist public , es darf also jeder dran. Egal wie welchen Zugriff die Methoden oder Felder dahinter haben.

Zitat von Ghostwalker:

Was hindert dich daran, das in Delphi genauso zu machen ?

Nichts. Deswegen tue ich es auch. Ich wollte nur mein Unverständnis ausdrücken was man durch Properties in seinem Code überhaupt gewinnt.