Kann man "X: array of array of const" realisieren?

[Hawkeye219]

Hallo Panthrax,

mit einer Hilfsfunktion, welche deine Objekte temporär in eine Liste packt, kommst du vielleicht doch noch ans Ziel:

Delphi-Quellcode:

function NewList (const aItems: array of TObject): TList;
var
  i : Integer;
begin
  Result := TList.Create;
  for i := 0 to High(aItems) do
    Result.Add(aItems[i]);
end;

Da die Liste selbst wieder ein Objekt ist, kannst du die Aufrufe von NewList schachteln:

Delphi-Quellcode:

HandleItems (
  NewList([
    NewList([
      TObject.Create,
      TObject.Create,
      TObject.Create
      ]),
    NewList([
      TObject.Create,
      TObject.Create
      ]),
    NewList([
      TObject.Create,
      TObject.Create,
      TObject.Create,
      TObject.Create
      ])
    ])
  );

Auch wenn das ganze sehr kompakt aussieht, die Lösung birgt Gefahren. Die verarbeitende Routine kann nicht zwischen "normalen" Objekten und Hilfslisten unterscheiden, falls die Objekte selbst von TList abgeleitet sind. Sollte dies notwendig sein, muß auch die Hilfsliste von TList abgeleitet werden, die Überprüfung erfolgt dann mit Hilfe des Operators IS. Weiterhin ist darauf zu achten, daß die temporären Listen wieder freigegeben werden, sonst enstehen Memleaks. Neben diesen Problemen entsteht durch den Aufbau der Listen ein kleiner Overhead, der aber wahrscheinlich vernachlässigt werden kann.


Eine andere Möglichkeit wäre die Verwendung von dynamischen Arrays:

Delphi-Quellcode:

type
  TObjectMatrix = array of array of TObject;

var
  Items : TObjectMatrix;

begin
  SetLength (Items, 3),

  SetLength (Items[0], 3);
  Items[0, 0] := TObject.Create;
  Items[0, 1] := TObject.Create;
  Items[0, 2] := TObject.Create;

  SetLength (Items[1], 2);
  Items[1, 0] := TObject.Create;
  Items[1, 1] := TObject.Create;

  SetLength (Items[2], 4);
  Items[2, 0] := TObject.Create;
  Items[2, 1] := TObject.Create;
  Items[2, 2] := TObject.Create;
  Items[2, 3] := TObject.Create;

  HandleItems (Items);
end;

procedure HandleItems (const aItems: TObjectMatrix);
var
  i, j : Integer;
begin
  for i := 0 to High(aItems) do
    for j := 0 to High(aItems[i]) do
      { verarbeite Objekt an Position (i, j) }
end;

Es ist etwas mehr Schreibarbeit beim Aufruf, aber die oben genannten Probleme werden vermieden.

Gruß Hawkeye