Also deine Funktion wäre so wohl funktionsfähig:
Delphi-Quellcode:
procedure Delete(index: Integer);
begin
meinarray[i].Free;
for i := index to High(meinarray) - 1 do
meinarray[i] := meinarray[i + 1];
SetLength(meinarray, High(meinarray));
end;
oder
Delphi-Quellcode:
procedure Delete(index: Integer);
begin
meinarray[i].Free;
for i := index + 1 to High(meinarray) do
meinarray[i - 1] := meinarray[i];
SetLength(meinarray, High(meinarray));
end;
Zitat:
Das scheint auch zu funkionieren.
tut es auch soweit.
Zitat:
Doch bleibt das letzte Element erhalten, also muss ich es noch entfernen.
stimmt geneu, das muß weg ... zumindestens der Object-Zeiger daruf.
allerdings muß auch das zu löschende Element weg und zwar komplett.
Zitat:
Erstmal meinarray[length(meinarray)].free; und dann wollte ich mit Setlength(meinarray, length(meinarray) -1) den Array kürzen.
SetLength stimmte ja, nur darfst du das objekt nicht freigeben ... du hast es doch nach vorne kopiert.
Wenn du das machst, dann würde ja der letzte Eintrag im Array freigegeben (auch der kopierte ... sind ja schließlich das selbe Objekt
)
PS: da du nur den Objektzeiger auf das i-te Element überschrieben hast, bleibt dennoch die Objektinstanz erhalten = Speicherleck.
Doch funktioniert das nicht.
was genau funktionierte denn nicht? (kann es mir zwar denken, aber die Fehlerbeschreibung von dir ist nicht aussagekräftig.)