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
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