AW: TObjectList und Delete
Zitat:
Delete - Löschen Remove - Entfernen Extract - Herausnehmen Wenn es also ein Konstrukt gibt, das die Hoheit über die Verwaltung der beinhaltenden Objekte innehat, dann würde es mich stark verwundern, wenn ich da etwas "herausnehme" und das Objekt zerstört ist. Bei Remove und Delete erwarte ich hingegen, dass es zerstört wird. |
AW: TObjectList und Delete
@Sir Rufo
Du hast natürlich Recht, aber... (schon wieder; wird langsam zu einem Insiderwitz) Zitat:
Das sind alles unwichtige Fragen, ich könnte alles akzeptieren, aber es erleichtert das Verständnis. |
AW: TObjectList und Delete
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; |
AW: TObjectList und Delete
Danke, wollte gerade schreiben, dass laut dem Beispiel Remove Capacity auch nicht reduziert.
Delphi-Quellcode:
Somit wäre der Punkt bestätigt.
var
ol: TObjectList; icon: TIcon; i: Integer; begin ol := TObjectList.Create; for i := 1 to 5 do begin icon := TIcon.Create; ol.Add(Icon); end; ShowMessage(Format('Count: %d, Capacity: %d', [ol.Count, ol.Capacity])); for i := 1 to 5 do ol.Remove(ol.Items[0]); {for i := 1 to 5 do ol.Delete(0);} ShowMessage(Format('Count: %d, Capacity: %d', [ol.Count, ol.Capacity])); ol.Free; end; Das mit Notify gucke ich mir jetzt mal an. Ich dachte mir zwar etwas in die Richtung, aber... |
AW: TObjectList und Delete
Zitat:
Delphi-Quellcode:
function TList.Remove(Item: Pointer): Integer;
begin Result := RemoveItem(Item, TList.TDirection.FromBeginning); end; function TList.RemoveItem(Item: Pointer; Direction: TDirection): Integer; begin Result := IndexOfItem(Item, Direction); if Result >= 0 then Delete(Result); // <-- ja, da isses ja end; |
AW: TObjectList und Delete
Nun ja, ich, dem Kaiser treu und obrigkeitsgläubig, suche zuerst den Fehler bei mir. Die von dir geposteten Code-Zeilen habe ich natürlich auch gesehen, ging aber zuerst davon aus etwas übersehen zu haben (passiert ja ständig bei mir). Ich hab oben ja auch geschrieben, dass Remove fast wie Delete ist, nur in grün. Ich brauche immer die Bestätigung, ob durch Beispiel oder von jemand anders.
Dein Hinweis zu Notify scheint in der aktuellen Hilfe zu TList.Delete zu stehen, in der alten steht der Hinweis nicht. Dafür steht in der neuen Hilfe nicht, dass Capacity evtl. neu gesetzt werden sollte, vorausgesetzt es ist wichtig (soll ja sowieso immer etwas größer sein und wie ich gerade bemerkt habe schafft Add an der Grenze immer ein neues Puffer von 4). Was Notify im Code angeht, so habe ich es auch gesehen, wohl aber nicht richtig verstanden. |
AW: TObjectList und Delete
Die Eigenschaft Capacity kann man selber setzen z.B. um die Performance zu verbessern (wenn ich weiß, dass ich gleich 1000 Einträge da rein puste, dann kann ich die Größe ja auch schon mal festlegen) oder für die Speicheroptimierung (z.B. 800 Einträge fliegen wieder raus und werden erstmal nicht benötigt, dann wieder runter mit der Capacity)
Ansonsten läuft es aber auch, wenn man die Liste alles selber machen lässt ;) |
AW: TObjectList und Delete
Nun ja, ich gebe zu Capacity zwar zu kennen (gibt es ja auch in anderen Listen) nur habe ich mich noch nicht näher damit beschäftigt, bzw. genutzt.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:28 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz