![]() |
Re: Komponeten zerstören
Du destroyst die Componente zwar, aber du NIL'st nur die temporäre Variable 'Compo' dieser Procedure 'Destroy_component'. Die TComboBox-Instanz die du beim Aufruf dieser Procedure in der Parameterliste mitgegeben hast wird zwar so auch freigegeben aber eben nicht geNILt, weil es zwei unterschiedliche Ptr-Variablen sind.
Der Ptr in deiner Procedure-Parameterliste übernimmt den Ptr-Wert auf die zu löschende CompoBox, wodurch deren Speicher dann freigegeben wird. Anschließend wird aber nur dein Ptr in der Procedure geNILt und eben nicht der 'draußen'. Versuche mal in deinem Procedurekopf diese 'Compo'-Variable als 'var' zu declarieren: procedure Destroy_Component(var Compo : TComponent); |
Re: Komponeten zerstören
ok so weit so gut aber wenn ich das so ändere und compilieren will dann erhalte ich folgende fehlermeldung:
Zitat:
Delphi-Quellcode:
zu deutsch
procedure Destroy_Component(var Compo : TComponent);
begin if Compo <> nil then begin Compo.Destroy; Compo := nil; Compo.Free; end; end; //beim panel zerstören: Destroy_Component(beispielpanel); Bei einem Variablenparameter muß das eigentliche Argument genau denselben Typ wie der formale Parameter aufweisen. was mache ich falsch |
Re: Komponeten zerstören
Moin Christoph,
nimm TObject und nicht TComponent. TObject ist der Vorfahr für alle. |
Re: Komponeten zerstören
Zitat:
mit TPanel gehts auch net |
Re: Komponeten zerstören
Moin Christoph,
probier's mal so:
Delphi-Quellcode:
procedure Destroy_Component(Compo : TObject);
begin if Compo <> nil then begin Compo.Free; Compo := nil; end; end; |
Re: Komponeten zerstören
Ist das nicht das selbe wie
Delphi-Quellcode:
:?:
procedure Destroy_Component(Compo : TObject);
begin if Compo <> nil then begin FreeAndNil(Compo); end; end; |
Re: Komponeten zerstören
der akzeptiert ja scho nicht mal die übergabe parameter
|
Re: Komponeten zerstören
Ne, ich weiß nicht ob das überhaupt geht. Du musst ja nachher auch den entsprechend zu deinem Objekt korrekt passenden klassenrefferenzierten Destructor aufrufen und das wird in dieser Destroy-Routine wahrscheinlich nicht so einfach möglich sein, wenn überhaupt, imo.
|
Re: Komponeten zerstören
also kann man nicht eine prozedur schreiben die jede art von komponeten zerstört und frei gibt?
|
Re: Komponeten zerstören
Moin The Master,
Du hast doch die Pro Version. Schau Dir mal in den Sourcen an wie FreeAndNil implementiert ist. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:30 Uhr. |
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 by Thomas Breitkreuz