Hallo
das Thema klingt simpel und wurde z.B. für Arrays of Integer schon sehr oft beantwortet, jedoch stellt es sich nicht ganz so leicht dar, weil meine Elemente initialisierte Komponenten sind. Folgendes Problem:
Ich habe in ein dynamisches Array of TShape wobei dessen Elemente während der Laufzeit manuell erstellt werden können. Den Elementen ist ein Popupmenu (Popupmenu2) zugeordnet, welches u.a. zum löschen eines Elements dient. Die Position des Elements im Array, wird dabei über den Tag bestimmt.
Nun möchte ich gerne ein Element an einer beliebigen Stelle löschen, wobei alle anderen Elemente im Array aufrücken müssen. Die Lösung über eine List ist aufgrund des restlichen Programmes leider nicht möglich. Hier ein Ansatz der (nicht funktioniert wobei er jedoch) meine Idee verdeutlicht.
Delphi-Quellcode:
[...]
var
Form1: TForm1;
Btns : Array of TShape;
[...]
procedure TForm1.Lschen2Click(Sender: TObject);
var i, Helper : Integer;
begin
Helper := Popupmenu2.PopupComponent.Tag; //Wo ist das zu löschende Shape im Array
[...]
for i := helper to length(btns)-2 do //Alle Elemente um eins vorrücken(Das zu löschende SOLL überschreiben werden)
begin
btns[i] := btns[i+1];
end;
btns[length(btns)-1].Free; //letztes (doppeltes) Element wird gelöscht
setlength(btns,length(btns)-1);
for i := 0 to length(btns)-1 do btns[i].Tag := 1; // Tag wird wieder Position im Array
end;
[...]
end.
Ich hoffe auf eure Hilfe!
lg Flo