Ich füge einige TObject Nachkommen einem TStringList hinzu, zB indem ich AddObject aufruft. Ich möchte, dass sie freigegeben werden, wenn ich das Listenobjekt freigebe. Gibt es einen Weg, dies zu erreichen?
Die Eigenschaft OwnsObjects von TStringList sollte auf% co_de festgelegt werden %, damit die Liste ihre Objekte bei der Zerstörung freigibt. Dies kann entweder durch Aufruf der -Konstruktorüberladung erreicht werden, die den Parameter True empfängt, oder indem Sie die Eigenschaft explizit nach der Erstellung festlegen. Es ist vorzuziehen, OwnsObjects als Teil der Objektkonstruktion zu setzen.
Die Dokumentation beschreibt die Eigenschaft wie folgt:
Die Eigenschaft OwnsObjects gibt an, ob die Liste die gespeicherten Objekte besitzt oder nicht. Wenn die Eigenschaft OwnsObjects auf True festgelegt ist, wird der Destroy-Destruktor den für diese Objekte reservierten Speicher freigeben.
Tags und Links delphi