Mehrdimensionales dynamisches Array, Element löschen

[schwa226]

Special THX to himitsu!

Ich habe die erste Methode probiert und sie geht ohne Probleme!
Hätte mir nicht gedacht das, dass so kompliziert werden würde!

Wenn sich aber mein TIntArray nochmal ändern sollte werde ich dann wahrscheinlich doch noch auf TList ausweichen.

[mleyen]

Doh, ja TList wär echt die bessere Wahl.
Bzw:

Delphi-Quellcode:

type
  TIntArray = array of Integer;
  PIntArr = ^TIntArray;
  TIntArrayArray = array of PIntArr;
  
  procedure DeleteArrayElement(var AArray: TIntArrayArray; const AIndex: Integer);
  begin        
    Dispose(AArray[AIndex]);
    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;

[Deep-Sea]

Zitat von schwa226:

Ich könnte ja auch ein Record statt der Class machen.
Dann bei jedem neuen Element:
GetMem(MyElemnt, SizeOf(TArrayRecord));
List.Add(MyElemnt);

Wobei mir das mit GetMem weniger gefällt.

1. Anstatt GetMem sollte man auch New (und Dispose) verwenden.
2. Quatsch. Du musst kein Speicher reservieren?! Einfach hinzufügen und Fertig.

[himitsu]

Zitat von mleyen:

Bzw:

Delphi-Quellcode:

type
  TIntArray = array of Integer;
  PIntArr = ^TIntArray;
  TIntArrayArray = array of PIntArr;
  
  procedure DeleteArrayElement(var AArray: TIntArrayArray; const AIndex: Integer);
  begin        
    Dispose(AArray[AIndex]);
    Move(AArray[AIndex + 1], AArray[AIndex], SizeOf(AArray[0]) * (Length(AArray) - AIndex - 1));
    FillChar(AArray[High(AArray)], SizeOf(AArray[0]), 0);  
    SetLength(AArray, Length(AArray) - 1);
  end;

FillChar/ZeroMemory nicht vergessen, da sonst das letzte Feld doppelt vorkommt, dann von SetLength freigegeben würde und somit das vorletzte (nun letzte) Feld auf nicht mehr existierende Daten zeigen könnte.

[mleyen]

SetLength gibt Sachen frei? Wär mir neu