Array verkleinern

Hi,
ich habe eine Klasse entwickelt. Außerdem habe ich einen Array of TMeineKlasse. Diesen Array fülle ich, je nach User angaben, mit der Klasse. Jetzt wollte ich eine Löschroutine bauen um einzelne Elemente wieder zu entfernen. Meine Idee war, einfach alle nachfolgenden Elemente eins nach vorne zu kopieren

zusammenfalten · markieren

Delphi-Quellcode:

			procedure Delete(index: Integer);

begin

 for i := index to length(meinarray) do

  begin

   meinarray[i] := meinarray[i + 1];

  end;

end;

Das scheint auch zu funkionieren. Doch bleibt das letzte Element erhalten, also muss ich es noch entfernen. Erstmal meinarray[length(meinarray)].free; und dann wollte ich mit Setlength(meinarray, length(meinarray) -1) den Array kürzen. Doch funktioniert das nicht. Brauche ich da eine andere Routine oder habe ich einen Fehler in meinen Code?

bye,
Andy

Array verkleinern

Array verkleinern

Forumregeln