Getter/Setter mit unterschiedlicher Sichtbarkeit möglich?

[Shaman]

Hey there

Ist so etwas machbar?

Delphi-Quellcode:

type
  TTest = class
  private
    FProp: Integer;
  protected
    property Prop: Integer write FProp;
  public
    property Prop: Integer read FProp;
  end;

Gruss
Shaman

[sniper_w]

Nein. Dein Compiler würde dir das Gleiche sagen.

[Shaman]

Hat er mir auch gesagt ;)
Wollte nur verdeutlichen, was ich meine. Vieleicht geht es ja auf eine andere Weise.

[Dax]

Falls du Chrome kennst: dort geht das.

Delphi-Quellcode:

type
  Foo = class
  private
    method GetProp: Integer;
    method SetProp(const Value: Integer);
  public
    property Prop: Integer public read GetProp protected write SetProp;
  end;

Damit dürfen alle lesen, aber nur Kindklassen schreiben.

[Flocke]

Oder mittels zweier Properties auf denselben Wert zugreifen:

Delphi-Quellcode:

type
  TTest = class
  private
    FProp: Integer;
  protected
    property ProtectedProp: Integer read FProp write FProp;
  public
    property Prop: Integer read FProp;
  end;

[omata]

Oder mittels zweier Methoden:

Delphi-Quellcode:

type
  TTest = class
  private
    FProp: Integer;
  protected
    procedure Prop(Value:Integer); overload;
  public
    function Prop:Integer; overload;
  end;

:
:

{ TTest }

procedure TTest.Prop(Value: Integer);
begin
  FProp:=Value;
end;

function TTest.Prop: Integer;
begin
  Result:=FProp;
end;

MfG
Thorsten

[Elvis]

Zitat:

Zitat von omata

Oder mittels zweier Methoden:

Möglich und gar nicht mal so unkreativ. ;)

Ich denke, die StiNo-Delphi-Lösung wäre ein protected Setter. So gibt es weiterhin eine (read-) Property, und die Namenskonvention für einen Setter (set[Property]) sollte seine Funktion ziemlich eindeutig klarmachen. ;)

Delphi-Quellcode:

protected
  function  getXXX : SomeType; virtual;
  procedure setXXX(const value : SomeType); virtual;
public
  property XXX : SomeType read getXXX;

So hat man (zwar unschön) fast virtuelle Properties wie in Chrome oder C#:

Delphi-Quellcode:

public
  property XXX : SomeType 
    read  fXXX protected write fXXX; virtual;

Edit: Der Getter hätter wohl keine Prozedur sein können, right? :mrgreen:
Das passiert, wenn man sonst nur "method" schreibt :lol: