Mehrdimensionales dynamisches Array, Element löschen

[mleyen]

Delphi-Quellcode:

  procedure DeleteArrayElement(var AArray: TIntArray; const AIndex: Integer);
  begin
    SetLength(AArray[AIndex], 0);
    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;