Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Fragen zu Generic TList (https://www.delphipraxis.net/191538-fragen-zu-generic-tlist.html)

Fritzew 26. Jan 2017 10:19

AW: Fragen zu Generic TList
 
Ich hatte die Signatur noch mal geändert, (war nur so aus dem Kopf),
mit der aktuellen Signatur sollte es gehen siehe oben

norwegen60 26. Jan 2017 11:32

AW: Fragen zu Generic TList
 
Noch mal 1mm weiter aber immer noch nicht am Ziel.

Jetzt streikt der Aufruf
Delphi-Quellcode:
procedure TMyList.Notify(const Ptr: TMyclass; Action: TCollectionNotification); // Überschreiben nicht virtual
begin
  if (FFreeOnDelete) and (Ptr<>nil) and (Action = cnRemoved) then
    Ptr.Free; // Ungültige Zeigeroperation
  inherited Notify(Ptr, Action);
end;
Beim Aufruf von Ptr.Free kommt es zu einer Exception "Ungültige Zeigeroperation". Dispose(Ptr) ging auch nicht.

Ausserdem:
Ich bin dr Meinung, dass inherited nach meiner Aktion erfolgen soll aber auf der Suche fan ich auch Beispiele, wo zuerst inherited aufgerufen wurde. Spielt es eine Rolle?

Klaus01 26. Jan 2017 11:38

AW: Fragen zu Generic TList
 
.. nur mal ein Schuss ins Blaue - an dem const Parameter kann es nicht liegen?

oder Ptr ist bereits woanders freigegeben und nicht auf nil gesetzt worden .

Grüße
Klaus

haentschman 26. Jan 2017 11:54

AW: Fragen zu Generic TList
 
Hallöle...8-)
Delphi-Quellcode:
procedure TMyList.Notify(const Ptr: TMyclass; Action: TCollectionNotification); // Überschreiben nicht virtual
begin
  if (FFreeOnDelete) and (Ptr<>nil) and (Action = cnRemoved) then
    Ptr.Free; // Ungültige Zeigeroperation
  inherited Notify(Ptr, Action);
end;
..du gibst immer noch den Pointer frei der in der Gesamtliste beibehalten werden soll. Die Liste muß dich über nix in informieren... (Notify kann weg) :roll: Einfach den Listen Eintrag mit DELETE entfernen...fertsch. 8-) Die Instanzen der Hauptliste werden mit der TObjectList, wenn du endlich mal eine hast, weggeräumt. 8-)

Zitat:

und ich noch nicht abschätzen kann welche Auswirkungen ein Wechsel auf TObjectList hat.
Es gibt keine Auswirkungen. Der Unterschied von TObjectList und TList besteht darin das die TObjectList ihre enthaltenen Instanzen wegräumt.

norwegen60 26. Jan 2017 14:33

AW: Fragen zu Generic TList
 
Zitat:

.. nur mal ein Schuss ins Blaue - an dem const Parameter kann es nicht liegen?
Den Schuss hatte ich auch schon probiert. Wenn ich CONST entferne meckert er wieder, dass sich die Definition von der vorherigen Unterscheidet. Und dass der Ptr <> nil ist habe ich ja abgesichert.

Zitat:

Die Instanzen der Hauptliste werden mit der TObjectList, wenn du endlich mal eine hast, weggeräumt.
Eigentlich wollte ich doch nur rausbekommen wie das mit dem Notify funktioniert nachdem in der Hilfe doch steht
Zitat:

Hinweis: Der für das Element reservierte Speicherplatz wird von Delete nicht freigegeben. Das Objekt kann freigegeben werden, indem die Methode Notify überschrieben wird.
Und warum raten sie in http://www.delphipraxis.net/190843-t...terschied.html zu TList beim arbeiten mit Klassen? Wenn OwnObjects wirklich der einzige Unterschied ist, sollte es doch egal sein.

haentschman 26. Jan 2017 17:24

AW: Fragen zu Generic TList
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallöle...:P
Zitat:

Und warum raten sie in http://www.delphipraxis.net/190843-t...terschied.html zu TList beim arbeiten mit Klassen? Wenn OwnObjects wirklich der einzige Unterschied ist, sollte es doch egal sein.
Das OwnObjects ist der einzige Unterschied...aber der macht das. :thumb: Im Anhang ein Projekt wo die Speicherlecks angezeigt werden...einmal TList und einmal TObjectList (siehe Quelltext anzeigen)
Zitat:

TObjectList ist nichts weiter als eine Unterklasse von TList. Das einzige was sie zusätzlich macht ist das Freigeben der enthaltenen Objekte wenn OwnsObjects == True ist.
...dazu gibt es nichts mehr zu sagen. :wink:
Zitat:

Eigentlich wollte ich doch nur rausbekommen wie das mit dem Notify funktioniert nachdem in der Hilfe doch steht
Das Notify ist dafür da, das die "Logik" über Änderungen an der Liste informiert wird um weitere Aktionen auszulösen. Dazu gehört nicht die Freigabe der Listeneinträge. Da macht die Liste selbst ohne eine zusätzliche Zeile (TObjectList) :zwinker:

Hinweis:
Zitat:

raten sie
...auch wenn wir Ü(irgendwas) sind sind wir beim du...Respekt vorausgesetzt. :zwinker:

norwegen60 26. Jan 2017 19:15

AW: Fragen zu Generic TList
 
Hallo,

Zitat:

...auch wenn wir Ü(irgendwas) sind sind wir beim du...Respekt vorausgesetzt.
warst nicht du gemeint sondern die anderen in dem erwähnten Thread.:-D

Weil ich es eben so verstanden hatte, dass TObjectList nur das zusätzlich Löschen hat, habe ich nicht verstanden warum dann in dem andern Thread zu TList geraten wird.

In meinem Projekt habe ich schon auf TObjektList umgestellt. Dein Leckanzeiger werde ich gleich mal ausprobieren:thumb:


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:46 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz