N-Dimensionales array über single index ansteuern

[Memnarch]

wäre dann die antwort für ein 3darray:

array[maxX][MaxY][MaxZ]

array[a*MaxY*MaxZ + B*MaxZ + C]

MFG
Memnarch

[BUG]

Ja, das sollte funktionieren.

[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...)

[Memnarch]

so hab ich mein werk für heute getan. Mein Compiler kann jetzt mit array definitionen umgehen
Danke Bug und Aphton