dynamisches mehrdimensionales Array durchlaufen

[Meta777]

huhu...

Wie kann man / kann man überhaupt ein dynamisches, mehrdimensionales Array in einer schleife durchlaufen?

TIA

Shalom & Gesegnete Weihnachtszeit :xmas:

[Jelly]

Mit den Funktionen High und Low kriegst du die Ober- und Untergrenze deines Arrays. Das klappt aber, wenn ich mich nicht irre, für eindimensionale Arrays. Aber vielleicht gehen so Konstrukte wie

Delphi-Quellcode:

arr : array of array of integer ;
...
High(arr[0]) ;

[Meta777]

Ja mit high und low hab ich auch schon überlegt... vielleicht muss man da ne rekursive funktion schreiben... hm... mal überlegen...

[dominikkv]

Delphi-Quellcode:

for I := low(MyArray) to high(MyArray) do
  for J := low(MyArray[i]) to high(MyArray[i]) do
    for K := low(MyArray[I, J]) to high(MyArray[I, J]) do
      // bla

[rawsoul]

Na das nenn ich fachmännisch ;)
Mal ein kleiner Eingriff in diesen Thread - Es tut mir leid, ich möchte keinen extra Thread dafür anfertigen.
Gibt es etwas ähnliches wie WithEach($Array as $i){ ... } (bei PHP) nicht auch in Delphi?

[Dax]

Nein, gibt es nicht.

[Hawkeye219]

Hallo,

ein Zugriff auf Arraydaten ist im BDS mit der FOR..IN-Schleife möglich, wenn man das Array geeignet vereinbart:

Delphi-Quellcode:

type
  TDynVector = array of Integer;
  TDynMatrix = array of TDynVector;
var
  Vector   : TDynVector;
  Matrix   : TDynMatrix;
  row, col : Integer;
  Value    : Integer;
begin
  SetLength (Matrix, 4, 8);

  for row := 0 to High(Matrix) do
    for col := 0 to High(Matrix[row]) do
      Matrix[row, col] := 100 * row + col;

  for Vector in Matrix do
    for Value in Vector do
      // Value enthält jetzt einen Wert der Matrix
      ;
end;

Gruß Hawkeye