Universelles Array

[bernau]

Gegeben ist ein record in dem Daten in einem zweidimensionalen Array abgelegt sind. Die Dimension des Arrays wird durch zwei Aufzählungstypen bestimmt. Dazu noch ein paar Getter und Setter und Funktionen zur Summenberechnung, denen ein Set der Aufzählungstypen übergeben wird.

Ein vereinfachtes Besispiel ist hier:

Delphi-Quellcode:

Type
  TEnumA = (A1, A2, A3, A4);
  TEnumASet = Set Of TEnumA;
  TEnumB = (B1, B2, B3, B4);
  TEnumBSet = Set Of TEnumB;

type

  TccArray = record
    private
      fCount:array[TEnumA,TEnumB] of Integer;
      fValue:array[TEnumA,TEnumB] of Double;
    function GetCount(IndexA: TEnumA; IndexB: TEnumB): integer;
    procedure SetCount(IndexA: TEnumA; IndexB: TEnumB; const Value: integer);
    function GetValue(IndexA: TEnumA; IndexB: TEnumB): integer;
    procedure SetValue(IndexA: TEnumA; IndexB: TEnumB; const Value: integer);
    public
      Property Count[IndexA:TEnumA;IndexB:TEnumB]:integer read GetCount write SetCount;
      Property Value[IndexA:TEnumA;IndexB:TEnumB]:integer read GetValue write SetValue;
      Function Average(IndexA:TEnumA;IndexB:TEnumB):Double;
      Function CountSum(IndexASet:TEnumASet;IndexBSet:TEnumBSet):Integer;
      Function ValueSum(IndexASet:TEnumASet;IndexBSet:TEnumBSet):Double;
    end;

Dieses Konstrukt verwende ich mehrfach mit weiteren Aufzählungstypen.

Delphi-Quellcode:

  
  TEnumC = (C1, C2, C3, C4);
  TEnumCSet = Set Of TEnumC;
  TEnumD = (D1, D2, D3, D4);
  TEnumDSet = Set Of TEnumD;

In der Vergangenheit wurde dann das obrige Beispiel durch Copy/Paste an die weiteren Aufzählungstypen angepasst.

Das stört mich mittlerweile. Es muss was anderes her.

Ich habe an Generics gedacht. Es würde sich folgendes anbieten:

Delphi-Quellcode:

  
  TccArray<TXType, TYType> = class
  private
    fCount: TDictionary<TPair<TXType, TYType>, Integer>;
    fValue: TDictionary<TPair<TXType, TYType>, Integer>;
    function GetCount(IndexA: TXType; IndexB: TYType): Integer;
    function GetValue(IndexA: TXType; IndexB: TYType): Integer;
    procedure SetCount(IndexA: TXType; IndexB: TYType; const Value: Integer);
    procedure SetValue(IndexA: TXType; IndexB: TYType; const Value: Integer);
  public
    constructor Create;
    Destructor Destroy; override;
    Property Count[IndexA: TXType; IndexB: TYType]: Integer read GetCount write SetCount;
    Property Value[IndexA: TXType; IndexB: TYType]: Integer read GetValue write SetValue;
    Function Average(IndexA: TXType; IndexB: TYType): Double;
  end;

Die Implementation ist erst mal zweitrangig. Statt Dictionary kann auch was anderes verwendet werden. Der Vorteil ist, ich brauche nur noch folgende Ableitung:

Delphi-Quellcode:

  
  TMyArrayAB = TccArray<TEnumA, TEnumB>;
  TMyArrayCD = TccArray<TEnumC, TEnumD>;

Und schon habe ich die komplette Funktionalität.

Mit sind aber die Funktionen mit den Sets sehr wichtig.

Delphi-Quellcode:

      
  Function CountSum(IndexASet:TEnumASet;IndexBSet:TEnumBSet):Integer;
  Function ValueSum(IndexASet:TEnumASet;IndexBSet:TEnumBSet):Double;

Wie bekommen ich das mit Generics hin?