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;