Properites mit Enums zusammenfassen

[uligerhardt]

Schau mal hier
https://docwiki.embarcadero.com/RADS...haften_(Delphi)
unter "Indexbezeichner". Statt 0..3 und Integer kannst du hier auch deine Enumtypen verwenden:

Delphi-Quellcode:

TMyClass = class
private
  FProps: array[TBla] of Longint;
  function GetProp(Index: TBla): Longint;
  procedure SetProp(Index: TBla; Value: Longint);
public
  property PropA: Longint index a read GetProp write SetProp;
  property PropB: Longint index b read GetProp write SetProp;
  property PropC: Longint index c read GetProp write SetProp;
  property Props[Index: TBla]: Longint read GetProp write SetProp;
end;