Zugriffsgeschwindigkeit auf mehrdimensionale Arrays

[himitsu]

jupp, vom Zugriff auf die Elemente sollte bei der For-Schleifchen-Kombination eh alle Elemente in der selben Reinfolge und auch noch sequentiell erfolgen ... bei beiden Varianten.

für dieses hier

Delphi-Quellcode:

for i := 0 to x do
  for j := 0 to y do
    for k := 0 to z do
      for l := 0 to x do
        for m := 0 to y do
          for n := 0 to z do
            mein_Array[i,j,k,l,m,n] := i * j * k * l * m * n;

und falls ich mich jetzt nicht vertan hab, 'ne Variante mit nur einer Schleife

Delphi-Quellcode:

type PDoubleArray = array[0..0] of Double;

for f := 0 to (x+1) * (y+1) * (z+1) * (x+1) * (y+1) * (z+1) do
begin

//g := f;
//i := g mod (z+1);  g := g div (z+1);
//j := g mod (y+1);  g := g div (y+1);
//k := g mod (x+1);  g := g div (x+1);
//l := g mod (z+1);  g := g div (z+1);
//m := g mod (y+1);  g := g div (y+1);
//n := g mod (x+1);  g := g div (x+1);

  i := f mod (z+1);  g := f div (z+1);
  j := g mod (y+1);  g := g div (y+1);
  k := g mod (x+1);  g := g div (x+1);
  l := g mod (z+1);  g := g div (z+1);
  m := g mod (y+1);  n := g div (y+1);

  PDoubleArray(@mein_Array)[f] := i * j * k * l * m * n;
end;