Re: Dynmaische Label finden
@SirThornberry:
Ich stimme deiner signatur voll und ganz zu ;) Nein im Ernst. Verstehe es. hast schon recht. Habs allerdings noch nichts getestet. |
Re: Dynmaische Label finden
Hi,
Du könntest auch TObjectList (ab Delphi 6) verwenden. Dann sparst Du Dir das manuelle Freigeben der Controls, da per default alle Objekte der TObjectList beim Zerstören mit freigegeben werden. Zudem musst Du beim Zugriff nicht auf TObject casten. mfG mirage228 |
Re: Dynmaische Label finden
@SirThornberry: Und so muss man sich am Ende nicht um alles kümmern...
Delphi-Quellcode:
type TLabelList=class(TList) public procedure BeforeDestruction();override; procedure ClearLabelList(); end; //.... procedure TLabelList.ClearLabelList(); var i:Integer; currentObject:TObject; begin for i:=0 to Count-1 do begin currentObject:=TObject(Items[i]); currentObject.Free(); Items[i] := nil; end; while Count>0 do Delete(0); Clear(); end; procedure TLabelList.BeforeDestruction(); begin ClearLabelList(); inherited; end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:16 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