N-Dimensionales array über single index ansteuern

[Aphton]

Ja nach genauerem überlegen haste recht...
(z Achse: 2 -> bedeutet zwei x * y Scheiben..; ich muss räumlicher denken, sry )

Delphi-Quellcode:

function getNDimensional1DArrayIndex(const Dimensions, Indices: Array of Integer): Integer;
var
  i: Integer;
  s: Integer;
begin
  Result := 0;
  if Length(Dimensions) <> Length(Indices) then Exit;
  s := 1;
  for i := High(Dimensions) downto 0 do // 1: so
  for i := 0 to High(Dimensions) do // 2: oder so
  begin
    inc(Result, Indices[i] * s);
    s := s * Dimensions[i];
  end;
end;

(sofern keine Fehler vorhanden...)