Mehrdimensionales dynamisches Array, Element löschen

[schwa226]

Hallo,

ich versuche gerade aus einem dynamischen Array ein Element zu löschen.

Dabei halte ich mich an dieses Beispiel:

Delphi-Quellcode:

type
  TIntArray = array of Integer;
procedure DeleteArrayElement(var AArray: TIntArray; const AIndex: Integer);
var
  i: Integer;
begin
  Move(AArray[AIndex + 1], AArray[AIndex], SizeOf(AArray[0]) * (Length(AArray) - AIndex - 1)); //Dahinterliegende Daten aufrücken
  SetLength(AArray, Length(AArray) - 1); // Länge kürzen
end;

Nun habe ich aber:

Delphi-Quellcode:

type
  TIntArray = array of array of Integer;

Wenn nun SetLength aufgrufen wird crashed es. Ich komme nicht drauf...