Array-Delete Funktion

[olee]

Mein bisheriger Code:

Delphi-Quellcode:

  // zum löschen von mehreren Elementen gleichzeitig
  j := 0;
  for i := 0 to high(AnArray) do
  begin
    AnArray[i-j] := AnArray[i];
    If AnArray[i].destroyed then inc(j);
  end;
  SetLength(AnArray,Length(AnArray)-j);

  // zum löschen eines Elementes
  for i := Index to high(AnArray)-1 do
  begin
    AnArray[i] := AnArray[i+1];
  end;
  SetLength(AnArray,Length(AnArray)-1);

Also ich hab da schon Code nur ist es möglich, eine Funktion zu schreiben,
die ein beliebiges Array annimmt?

(Vllt. mit dem Move-Befehl???)