Hi.
Ich habe jetzt alles soweit erfolgreich mit TObjectList gelöst.
Eine Sache funktioniert bloß noch nicht und zwar eine Instanz wieder löschen.
Dazu habe ich mir jetzt statt GetItemById eine Prozedur RemoveItemByID "gebastelt":
Delphi-Quellcode:
procedure TTestObjectList.RemoveItemByID(_ID: integer);
var
Objekt: TTest;
i: integer;
begin
Objekt:=
nil;
for i := 0
to Count-1
do
if Items[i].ID = _ID
then
begin
Objekt:= Items[i];
Objekt.Free;
// HIER nach tritt eine Exception auf. Ist eigentlich auch klar. Da es das Objekt ja nicht mehr gibt
// aber ist es auch schon aus der TObjectList verschwunden?
Remove(Items[i]);
exit;
end;
end;
Wie kann ich die Instanz der Klasse und den "Eintrag" in die TObjectList erfolgreich löschen?
Thx!