Property -> Getter und Setter mit Parametern

[bernau]

Ein Gedankengang zum Thema "wie spare ich Tipperei".

Ich habe ein CustomObject, welches Parameter speichert. Egal wo und wie. Und es gibt eine Ableitung in der ich einige Properties definiere, welche Properties des Parent verwendet. Der Zugriff wird in der Implementation geregelt.

Delphi-Quellcode:

interface

type
  TCustomSpeicherobjekt = class(TObject)
    private
      function GetEinStringWert(aIndex: string): string;
      procedure SetEinStringWert(aIndex: string; const Value: string);
    public
      property EinStringWert[aIndex:string]:string read GetEinStringWert write SetEinStringWert;
    end;


  TMeinSpeicherobjekt = class(TCustomSpeicherobjekt)
    private
      function GetWertA: string;
      function GetWertB: string;
      procedure SetWertA(const Value: string);
      procedure SetWertB(const Value: string);
    public
      property WertA:string read GetWertA write SetWertA;
      property WertB:string read GetWertB write SetWertB;
    end;


implementation

{ TMeinSpeicherobjekt }

function TCustomSpeicherobjekt.GetEinStringWert(aIndex: string): string;
begin
  // Hier steht Code zum Lesen
end;

procedure TCustomSpeicherobjekt.SetEinStringWert(aIndex: string; const Value: string);
begin
  // Hier steht Code zum Schreiben
end;


{ TMeinSpeicherobjekt }

function TMeinSpeicherobjekt.GetWertA: string;
begin
  Result:=EinStringWert['WertA'];
end;

function TMeinSpeicherobjekt.GetWertB: string;
begin
  Result:=EinStringWert['WertB'];
end;

procedure TMeinSpeicherobjekt.SetWertA(const Value: string);
begin
  EinStringWert['WertA']:=Value;
end;

procedure TMeinSpeicherobjekt.SetWertB(const Value: string);
begin
  EinStringWert['WertB']:=Value;
end;

Gibt es einge Möglichkeit den Code zu verkürzen. Ich denke an so etwas wie die direkte Funktionsübergabe mit Parameter. Dann könnte man sich die Implementation sparen.

Beispiel:

Delphi-Quellcode:

  TMeinSpeicherobjekt = class(TCustomSpeicherobjekt)
    private
    public
      // Entweder so
      property WertA:string read EinStringWert['WertA'] write EinStringWert['WertA'];
      // oder so
      property WertB:string read GetEinStringWert('WertB') write SetEinStringWert('WertB');
    end;

Oder gibt es andere Ansätze?

[Sherlock]

Eventuell hilft Dir index als Indexbezeichner. Schau Dir die Hilfe zu properties nochmal an.

http://docwiki.embarcadero.com/RADSt...dex_Specifiers

Sherlock

[jaenicke]

Ich würde dann aber die Stringindizes nicht nach außen geben, um Tippfehler zu minimieren und das z.B. so lösen (wenn die Stringindizes intern notwendig sind):

Delphi-Quellcode:

{$SCOPEDENUMS ON}

type
  TCustomSpeicherobjekt = class(TObject)
  private
    function GetEinStringWert(aIndex: string): string;
    procedure SetEinStringWert(aIndex: string; const Value: string);
  public
    property EinStringWert[aIndex: string]: string read GetEinStringWert write SetEinStringWert;
  end;

  TMeinSpeicherobjekt = class(TCustomSpeicherobjekt)
  public type
    TValueInfo = (ValueA, ValueB);
  private
    const
      cValueNames: array[TValueInfo] of string = ('WertA', 'WertB');
    function GetValue(ValueKind: TValueInfo): string;
    procedure SetValue(ValueKind: TValueInfo; const Value: string);
  public
    property Value[ValueKind: TValueInfo]: string read GetValue write SetValue;
  end;

implementation

{ TMeinSpeicherobjekt }

function TCustomSpeicherobjekt.GetEinStringWert(aIndex: string): string;
begin
  // Hier steht Code zum Lesen
end;

procedure TCustomSpeicherobjekt.SetEinStringWert(aIndex: string; const Value: string);
begin
  // Hier steht Code zum Schreiben
end;

{ TMeinSpeicherobjekt }

function TMeinSpeicherobjekt.GetValue(ValueKind: TValueInfo): string;
begin
  Result := EinStringWert[cValueNames[ValueKind]];
end;

procedure TMeinSpeicherobjekt.SetValue(ValueKind: TValueInfo; const Value: string);
begin
  EinStringWert[cValueNames[ValueKind]] := Value;
end;

Dann lässt sich das einfach so nutzen:

Delphi-Quellcode:

MyObject.Value[TValueKind.ValueA] := 'Test';
ShowMessage(MyObject.Value[TValueKind.ValueA]);

[bernau]

Zitat von jaenicke:

Dann lässt sich das einfach so nutzen:

Delphi-Quellcode:

MyObject.Value[TValueKind.ValueA] := 'Test';
ShowMessage(MyObject.Value[TValueKind.ValueA]);

Auch nicht wirklich eine alternative. Ich nutze gerne Codevervollständigung. Da möchte ich das Property direkt verwenden.

[bernau]

Zitat von Sherlock:

Eventuell hilft Dir index als Indexbezeichner. Schau Dir die Hilfe zu properties nochmal an.[/url]

Ne, das ist nicht wirklich optimal. Ein index ist nicht sprechend und zu fehleranfällig. Wenn der Index ein String sein könnte, dann wäre es eine Lösung

Ich suche eine Lösung, in der ich die Implementation übergehen kann.

[Sir Rufo]

Zitat von bernau:

Zitat von Sherlock:

Eventuell hilft Dir index als Indexbezeichner. Schau Dir die Hilfe zu properties nochmal an.[/url]

Ne, das ist nicht wirklich optimal. Ein index ist nicht sprechend und zu fehleranfällig. Wenn der Index ein String sein könnte, dann wäre es eine Lösung

Ich suche eine Lösung, in der ich die Implementation übergehen kann.

Dieser Index ist aber die einzige Moglichkeit um im Getter/Setter zu erfahren, welche Eigenschaft denn nun diesen aufgerufen hat. So einfach ist das.

Dieser Index kann ein Integer oder ein Enum sein.

[uligerhardt]

Zitat von Sir Rufo:

Dieser Index kann ein Integer oder ein Enum sein.

... und er taucht im Anwender-Code ja gar nicht auf. (Was ja AFAICT bernaus Befürchtung ist.)

[bernau]

OK. Ich verbuche das einfach mal unter "geht nicht".