TObjectList und Delete

[Popov]

@Sir Rufo

Du hast natürlich Recht, aber... (schon wieder; wird langsam zu einem Insiderwitz)

Zitat:

Wenn in der OH steht 'Abgeleitet von TList' dann bezieht sich das zu 100% auf TList und die Nachfolger, allerdings kann in den Nachfolgern noch etwas darüber hinaus passieren (konkret bei der TObjectList eben, dass bei OwnsObjects auch das enthaltene Object aus dem Speicher entfernt wird.

Der Text der OH kann also nur auf das TList-Verhalten bezogen werden (was die TObjectList auch erbt) und konkret ist eben damit der Speicherplatz für die Objekt-Referenzen gemeint. Der passende Hinweis ist hierfür Capacity.

Nur der Vollständigkeitshalber: Remove ist abgeleitet, Delete ist geerbt. Remove ist eine Methode von TObjectList, Delete von TList, nur geerbt. Trotzdem hat OwnsObjects Einfluss auf Delete, bzw. ändert diese. Es liegt an mir, aber ich verstehe nicht wieso OwnsObjects Einfluss auf Delete hat. Nicht dass Remove irgendwie besonders erweitert worden wäre, aber wieso ändern sich hier die Eigenschaften und wieso ist es bei Remove nicht nötig Capacity zu korrigieren?

Das sind alles unwichtige Fragen, ich könnte alles akzeptieren, aber es erleichtert das Verständnis.

[Sir Rufo]

1. Das Entfernen der Objekt-Instanzen (Free) erfolgt weder in der Methode Delete, noch in der Methode Remove, sondern in der Methode Notify, so wie das in der OH auch vermerkt ist für TList:
   

   Zitat von System.Classes.TList.Delete:

   Das Objekt kann freigegeben werden, indem die Methode Notify überschrieben wird

   Und genau das hat man bei der TObjectList so gemacht, man hat sich an die eigene Empfehlung gehalten
2. Bei Remove wird in der OH (ja, ist wohl suboptimal) nicht mitgeteilt, dass das wirkliche Entfernen durch den impliziten Aufruf von Delete erfolgt. In der Methode Remove wird nur über das Item der Index ermittelt und damit die Methode Delete aufgerufen.
   Damit gelten für Remove die gleichen Regeln wie für Delete

Genau für solche Momente (wo die OH Fragen offen lässt) lohnt sich eigentlich immer ein Blick in die Quellen:

Delphi-Quellcode:

procedure TList.Notify(Ptr: Pointer; Action: TListNotification);
begin
end;

procedure TObjectList.Notify(Ptr: Pointer; Action: TListNotification);
begin
{$IFNDEF AUTOREFCOUNT}
  if (Action = lnDeleted) and OwnsObjects then
    TObject(Ptr).Free;
{$ENDIF !AUTOREFCOUNT}
  inherited Notify(Ptr, Action);
end;