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?