Record zu TStringlist hinzufügen

[Klaus01]

.. wenn Du das

Delphi-Quellcode:

 DeleteObject(h_Bitmap);
                        h_Bitmap := 0;

In Destroy der Sprite Klasse durchführst - benötigst Du diese Schleife zum Löschen nicht mehr.

Grüße
Klaus

[EWeiss]

Zitat von Klaus01:

.. wenn Du das

Delphi-Quellcode:

 DeleteObject(h_Bitmap);
                        h_Bitmap := 0;

In Destroy der Sprite Klasse durchführst - benötigst Du diese Schleife zum Löschen nicht mehr.

Grüße
Klaus

Jo Danke.
Ich kann es aber so nicht mit Destroy machen weil Sprites.Free schon NIL ist wenn es in Destroy ankommt.
Das führt zu einem Ivalide Poiter error weil Sprite.free schon vorher alles weggeräumt hat.

Zitat:

Wenn "Sprite" bereits der Liste "Sprites" hinzugefügt wurde, ist die Liste Eigentümer dieses Objektes und kümmert sich selbst um die Freigabe.

Ja Ausgenommen davon sind die Ressourcen in dem Fall das HBitmap was ich vorher freigebe. (Ohne Destroy).

gruss

[TiGü]

Du darfst NICHT die Liste im Destroy des einzelnen Listen-Elements freigeben!!!
Du sägst dir den Ast ab, auf dem du sitzt!

Sorry, aber dir fehlen die banalsten Grundlagen in Objekt-Orientierter-Programmierung!

[EWeiss]

Zitat von TiGü:

Du darfst NICHT die Liste im Destroy des einzelnen Listen-Elements freigeben!!!
Du sägst dir den Ast ab, auf dem du sitzt!

Sorry, aber dir fehlen die banalsten Grundlagen in Objekt-Orientierter-Programmierung!

Woran siehst du das ich diese freigebe?
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 ops.. dritte hab ich nicht gefunden.

gruss

[TiGü]

Zitat von EWeiss:

Zitat von TiGü:

Du darfst NICHT die Liste im Destroy des einzelnen Listen-Elements freigeben!!!
Du sägst dir den Ast ab, auf dem du sitzt!

Sorry, aber dir fehlen die banalsten Grundlagen in Objekt-Orientierter-Programmierung!

Woran siehst du das ich diese freigebe?
Sorry aber lese einfach nochmal was ich freigebe Das HBitmap mehr nicht.
Das ich Destroy definieren soll kam nicht von mir.

Einfach genauso machen wie jaenicke das in Beitrag #91 zeigt!

[jaenicke]

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 von jaenicke:

So:

Delphi-Quellcode:

type
  TSprite = class
  ...
  public
    destructor Destroy; override;
  end;

destructor TSprite.Destroy; 
begin
  inherited;
  if h_Bitmap <> 0 then
  begin
    DeleteObject(h_Bitmap);
    h_Bitmap := 0;
  end;
end;

// und dann an deiner Stelle nur noch:
      Sprites.Free;

[Blup]

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.

[EWeiss]

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