Wie mache ich eine 3D record Array?

[s.h.a.r.k]

Ich versteh irgendwie nicht ganz dein Problem?! Wenn ich auf der Leitung steh musst mich da mal runterholen und mir ein paar nähere Details geben!

Hab hier mal ein kleinen Code, aber ich denke, sowas weißt du schon:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  test : TIntArray3;
  i, n, z : Integer;
begin
  // Länge des Arrays festlegen
  setlength(test, 10, 10, 10);

  // Array mit Werten füllen
  for i := 0 to 9 do
    for n := 0 to 9 do
      for z := 0 to 9 do
        test[i][n][z] := i+n+z;

  // Testausgabe
  ShowMessage(IntToStr(test[0][9][8]));
end;