AW: Record zu TStringlist hinzufügen
Wer hat denn geschrieben, dass du in dem Destroy eines einzelnen (!) TSprite auf die Liste aller (!) Sprites zugreifen sollst? Ich hatte doch schon geschrieben wie es aussehen muss:
Zitat:
|
AW: Record zu TStringlist hinzufügen
Zitat:
Sorry aber lese einfach nochmal was ich freigebe Das HBitmap mehr nicht. Das ich Destroy definieren soll kam nicht von mir. Also Lesen! Bitte und jetzt schreib :roteyes::spin2: ops.. dritte hab ich nicht gefunden. gruss |
AW: Record zu TStringlist hinzufügen
Zitat:
|
AW: Record zu TStringlist hinzufügen
Sprites.Free hat keinen Rückgabewert, kann also nicht nil sein.
Der Wert in der Variablen "Sprites" ist nach dem Free einfach ungültig, da er auf ein nicht mehr existierendes Objekt verweist. Im Destroy des einzelnen Sprite hast du doch überhaupt keine Kenntnis von der Liste. Du gibst doch nur das lokale Handle frei. Der Test auf 0 ist vor dem DeleteObject überflüssig. Ebenso die nachfolgende Zuweisung von 0, da nach dem Destructor das Objekt nicht mehr existiert.
Delphi-Quellcode:
destructor TSprite.Destroy;
begin DeleteObject(h_Bitmap); inherited; end; Sprites.Free; // gibt die Liste frei, die Liste gibt die Objekte frei, jedes Objekt sein Handle // Keine Schleife einfach fertig. |
AW: Record zu TStringlist hinzufügen
Ok dann habe wir das jetzt geklärt..
Der Gwinner ist @jaenicke ;) Danke an Blup, TiGü Aber gut man kann nicht alles wissen hab mit der TObjectList bisher noch nie gearbeitet. Das hat nix mit OOP Programmierung zu tun. (brauch ich auch nicht unbedingt mit WIN32API Programmierung) gruss |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:20 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