Property -> Getter und Setter mit Parametern

[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".

[Uwe Raabe]

Zitat von bernau:

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

Vielleicht nicht genau so, wie du das gern hättest. Allerdings gibt es genügend Möglichkeiten, dir die Tipparbeit zu ersparen.

Eine davon ist der Einsatz des ModelMaker Code Explorer, den ich in solchen Fällen ja gern als sinnvolles Werkzeug in der IDE anführe. Hier bieten sich verschiedene Möglichkeiten an, um die Tipparbeit einzusparen. Die einfachste ist, man legt einmal ein solches Property "WertA" an und implementiert den Zugriff, wobei der IndexString exakt dem Property-Namen entspricht (wie im Beispiel gezeigt). Dann kopiert man das Property mit dem MMX und benutzt dessen Member-Inplace-Rename-Funktionalität, um das neue Property in "WertB" umzubenennen. Erfreulicherweise werden dabei auch die IndexStrings mit umbenannt.

Eine andere Alternative ist das Anlegen eines eigenen Getter/Setter-Templates, das dann bei einem neuen Property zum Einsatz kommt.

Aber es geht auch ohne MMX mit dem Vorschlag von jaenicke, wenn man ihn etwas abwandelt (das SCOPEDENUMS ist hier nicht unbedingt notwendig):

Delphi-Quellcode:

  TMeinSpeicherobjekt = class(TCustomSpeicherobjekt)
  private type
    {$SCOPEDENUMS ON}
    TValueInfo = (WertA, WertB);
    {$SCOPEDENUMS OFF}
  protected
    function GetValue(ValueKind: TValueInfo): string;
    procedure SetValue(ValueKind: TValueInfo; const Value: string);
  public
    property WertA: string index TValueInfo.WertA read GetValue write SetValue;
    property WertB: string index TValueInfo.WertB read GetValue write SetValue;
  end;

uses
  System.TypInfo;

function TMeinSpeicherobjekt.GetValue(ValueKind: TValueInfo): string;
begin
  result := EinStringWert[GetEnumName(TypeInfo(TValueInfo), Ord(ValueKind))];
end;

procedure TMeinSpeicherobjekt.SetValue(ValueKind: TValueInfo; const Value: string);
begin
  EinStringWert[GetEnumName(TypeInfo(TValueInfo), Ord(ValueKind))] := Value;
end;

[bernau]

@Uwe: Das ist ein Ansatz, der sehr interessant aussieht.

[Sir Rufo]

Zitat von bernau:

@Uwe: Das ist ein Ansatz, der sehr interessant aussieht.

Das meinte ich mit den Enums ... nur so nebenbei bemerkt

[Dejan Vu]

Wenn man weniger Tipparbeit haben will, würde ich mal die Programmiersprache wechseln.

Diese Klimmzüge, um Getter und Setter über indexe anzusprechen, ist doch ziemlich unsauber und irgendwie von hinten durch die Brust ins Auge. Denn was habe ich im Getter und Setter vermutlich? Ein Case, würde ich mal annehmen. Oder halten wir die Daten etwa in einem Array?