Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   TComponent.Controls freigeben? (https://www.delphipraxis.net/209668-tcomponent-controls-freigeben.html)

Maliko 7. Jan 2022 09:14

TComponent.Controls freigeben?
 
Moin,

ich hätte da mal ne kurze Frage und zwar wollte ich einmal nachfragen ob ich die Controls in einer Komponente wie z.B. TPanel manuell beim Destroy freigeben muss oder ob die automatisch vom Destructor des TPanels mit freigegeben werden, wenn ich das TPanel freigebe. Ich frag da wegen MemoryLeaks, da ich natürlich keinen Datenmüll im Arbeitsspeicher rumfliegen lassen will.

Danke schon mal im Voraus
Maliko

EDIT: Achso. Es geht um ein TPanel welches in der pas-Datei definitiert wird und nicht in der DFM (sprich es wird zur Laufzeit erzeugt).

haentschman 7. Jan 2022 09:18

AW: TComponent.Controls freigeben?
 
Hallöle...8-)

Zitat:

Es geht um ein TPanel welches in der pas-Datei definitiert wird und nicht in der DFM (sprich es wird zur Laufzeit erzeugt).
Der "Owner" ist entscheidend. Gibst du den Owner bei der Erzeugung an, kümmert sich der um die Freigabe. Wenn nicht, mußt du alles freigeben was du selbst erzeugt hast...
:wink:

himitsu 7. Jan 2022 09:21

AW: TComponent.Controls freigeben?
 
TComponent werden sowohl vom Owner (die Form, wenn über den Formdesigner erstellt), als auch vom Parent (das Panel darüber) freigegeben ... wer halt zuerst kommt (also das Panel).


Wer den Schwachsinn in diese Aussage sieht ... bitte bei Borland beschweren, welche das Verhalten von Microsoft nachgebaut haben.

Maliko 7. Jan 2022 09:22

AW: TComponent.Controls freigeben?
 
Ah, danke euch beiden. Dann weiß ich bescheid.

Maliko 10. Jan 2022 10:37

AW: TComponent.Controls freigeben?
 
Gehört zwar nicht ganz zu dem Thema, aber ich wollte für die kurze Frage jetzt keinen neuen Thread aufmachen.

Wie sieht das eigentlich bei Listen aus? Werden die Objekte, welche sich in der Liste (List<T>) befinden automatisch freigegeben wenn ich die Liste freigebe oder muss ich die Objekte seperat noch freigeben? Sorry für die vielleicht etwas dämlichen Fragen, aber ich komme halt ursprünglich aus dem Java und C#-Umfeld und da muss ich mir dank des Garbage-Collectors gar keine Gedanken übers Freigeben machen.

Uwe Raabe 10. Jan 2022 10:56

AW: TComponent.Controls freigeben?
 
Zitat:

Zitat von Maliko (Beitrag 1500374)
Werden die Objekte, welche sich in der Liste (List<T>) befinden automatisch freigegeben wenn ich die Liste freigebe oder muss ich die Objekte seperat noch freigeben?

Dafür gibt es TObjectList<T>.

Rapunzel 10. Jan 2022 11:03

AW: TComponent.Controls freigeben?
 
Es gibt keine dämliche Fragen, nur dämliche Probleme.:wink: In dem Zusammenhang ist auch hilfreich, mit ReportMemoryLeaksOnShutdown zu arbeiten. Da kannst Du auch gleich testen, ob TObjectList korrekt aufräumt.

Delphi-Quellcode:
procedure TForm3.FormCreate(Sender: TObject);
begin
  ReportMemoryLeaksOnShutdown:=TRUE;
end;

Maliko 10. Jan 2022 11:11

AW: TComponent.Controls freigeben?
 
Ich weiß dass es TObjectList gibt. Die kann ich nur in diesem Fall nicht benutzen, da die TObjectList als T kein Interface akzeptiert. Ich will in der Liste Objekte von Klassen welche alle vom selben Interface erben speichern und dann nachher in einer for-Schleife abarbeiten.

Delphi-Quellcode:
FLoadedOptions : TObjectList<IOptionLogic> // Produziert den Compiler-Error Typparametr 'T' muss ein Klassentyp sein

Klaus01 10. Jan 2022 11:15

AW: TComponent.Controls freigeben?
 
Instanzen/Referenzen von Interfaces werden automatisch gelöscht, wenn deren Refernzzählung auf 0 ist.

Grüße
Klaus

himitsu 10. Jan 2022 11:22

AW: TComponent.Controls freigeben?
 
Und andersrum werden Weak-Reverezten au NIL gesetzt, wenn das Interface freigegeben wird.
Die Referenz in der [Weak] Variable wird nicht gezählt und somit kann RefCount auf 0 geht, wenn alle anderen Referenzen weg sind.



Man kann ein TControl als Liste missbrauchen.
Das in Controls wird dann automatisch verwaltet, also wird ein Control belöscht, dann entfernt es sich selber aus Controls.


Es gab auch eine TControlList, wo sich Controls ebenfalls aus der Liste löschen, wenn man sie freigibt.


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:53 Uhr.
Seite 1 von 2  1 2      

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