Multidimensional assoziatives array

[FAM]

Hallo Zusammen,

wie implementiert man in Delphi folgendes:

Delphi-Quellcode:

// Level 0
Arr[0, 'Foo', 'Bar1'] := 'Lorem Ipsum';
Arr[0, 'Foo', 'Bar2'] := 'Lorem Ipsum';
Arr[0, 'Foo', 'Bar3'] := 'Lorem Ipsum';

Arr[0, 'Foo1', 'Bar1'] := 'Lorem Ipsum';
Arr[0, 'Foo2', 'Bar2'] := 'Lorem Ipsum';
Arr[0, 'Foo3', 'Bar3'] := 'Lorem Ipsum';

// Level 1
Arr[1, 'Foo', 'Bar1'] := 'Lorem Ipsum';
Arr[1, 'Foo', 'Bar2'] := 'Lorem Ipsum';
Arr[1, 'Foo', 'Bar3'] := 'Lorem Ipsum';

Arr[1, 'Foo1', 'Bar1'] := 'Lorem Ipsum';
Arr[1, 'Foo2', 'Bar2'] := 'Lorem Ipsum';
Arr[1, 'Foo3', 'Bar3'] := 'Lorem Ipsum';

Hatte schon versucht mit verschatelten TStringList zu arbeiten, funzt aber nicht.

[FAM]

Ok habs,

Delphi-Quellcode:

var

  TempStringList: TStringList;
  TempArr: TDictionary<string, TStringList>;
  Arr: array of TDictionary<string, TStringList>;

...

  tempStringList := TStringList.Create;
  tempStringList.Add('Bar1=Lorem Ipsum');

  tempArr := TDictionary<string, TStringList>.Create;
  tempArr.Add('Foo', tempStringList);

  Arr[0] := tempArr;

  ShowMessage(Arr[0]['Foo'].Values['Bar1']); //Output: Lorem Ipsum

[himitsu]

Als Array-Property?

Delphi-Quellcode:

function Getter(idx1: Integer; idx2, idx3: string): string;
procedure Setter(idx1: Integer; idx2, idx3: string; value: string);
property TheArray[idx1: Integer; idx2, idx3: string]: string read Getter write Setter; default;

Und das nun in eine Klasse oder Record (seit 2006).

Default, damit man Arr[...] und nicht nur Arr.TheArray[...] schreiben kann.

[Dejan Vu]

Und umsetzen mit einer einfachen String-Dictionary, wobei Du die drei Indices einfach mit einem Sonderzeichen deiner Wahl aneinanderklatscht.

MyAssoc['A','B','C'] <==> myDictionary('A|B|C')