Record zu TStringlist hinzufügen

[DeddyH]

Du scheinst irgend etwas falsch zu machen. Rufst Du Sprite.Free selbst auf, oder lässt Du das nur die Liste machen?

[EWeiss]

Sorry noch ein Post nur zur klar Stellung..
Es funktioniert nicht!

Rufe ich auf

Delphi-Quellcode:

SPrite.Free;
Sprites.Free;

Dann bekomme ich bei Sprites.Free einen Invalid Pointer exeption.
Rufe ich nur Sprites.Free auf dann ist Sprites schon NIL wenn ich in TSprite.Destroy ankomme.

so sieht es aus kann euren wünschen also nicht nachkommen.
Mein Weg scheint der richtige zu sein.
Wenn ich mit SPrite.Free dazwischen funke dann kracht es.

Siehe Anhang!
Das verursacht keine Probleme.

Delphi-Quellcode:

      for X := 0 to Sprites.Count - 1 do
      begin
        if Sprites[X].h_Bitmap <> 0 then
        begin
          DeleteObject(Sprites[X].h_Bitmap);
          Sprites[X].h_Bitmap := 0;
        end;
      end;
      Sprites.Free;

Zitat:

Du scheinst irgend etwas falsch zu machen.

Was kann man da falsch machen?
Das einzige was ich mir denken könnte ist das man die TObjectList nicht selber freigeben darf.
Weil sie schon Nil ist wenn sie in TSprite.Destroy ankommt.

gruss

[DeddyH]

2 mal Free aufzurufen bzw. aufrufen zu lassen, ohne die Instanzvariable auf nil zu setzen, das kann man falsch machen. Free prüft intern auf nil ab, bevor Destroy aufgerufen wird. Das nützt aber nichts, wenn die Instanz zwar weg, die entsprechende Variable aber nicht nil ist. Stichwort Dangling Pointer oder auf deutsch wilde Zeiger.

[EWeiss]

Zitat:

Zitat von DeddyH (Beitrag 1374513)

2 mal Free aufzurufen bzw. aufrufen zu lassen, ohne die Instanzvariable auf nil zu setzen, das kann man falsch machen. Free prüft intern auf nil ab, bevor Destroy aufgerufen wird. Das nützt aber nichts, wenn die Instanz zwar weg, die entsprechende Variable aber nicht nil ist. Stichwort Dangling Pointer oder auf deutsch wilde Zeiger.

Zitat:

Das einzige was ich mir denken könnte ist das man die TObjectList nicht selber freigeben darf.
Weil sie schon Nil ist wenn sie in TSprite.Destroy ankommt.

Ich darf die TObjectList nicht selber freigeben.
Nö!
Auch wenn ich FreeAndNil(Sprite) verwende also die Instanz von Sprite nachher auf NIL setze kracht es.
gruss

[Blup]

Zitat:

Das Klassen in einer NON VCL ein Overhead darstellen ist dir aber schon klar oder?

Ich glaube nicht das man von einem Overhead sprechen kann. Der Größenunterschied zu einer nur auf Records basierenden Anwendung ist vernachlässigbar.
Die geringere Aufwand für Entwicklung und Pflege der Software rechtfertigt die wenigen Byte Unterschied.
Natürlich darf einfache Klassen nicht mit der VCL-Klassenbibliothek verwechseln.

Zitat:

Delphi-Quellcode:

     SPrite.Free;
      Sprites.Free;

Wenn "Sprite" bereits der Liste "Sprites" hinzugefügt wurde, ist die Liste Eigentümer dieses Objektes und kümmert sich selbst um die Freigabe.
In diesem Fall darf man "Sprite.Free" nicht mehr selbst aufrufen, sonst gibt man den selben Speicher mehrmals frei.
Das führt schlimmsten Falls zur Zugriffsverletzung.
Das hat auch nichts damit zu tun, ob Destroy überschrieben wurde oder nicht.

[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

[TiGü]

Zitat:

Zitat von EWeiss (Beitrag 1374498)

Verstehst was ich meine?
Ich rede nicht davon das es grundsätzlich nicht geht sondern davon das ich beides in meiner Class/Record nicht definiert habe.
Ohne Definition kann ich dort Codemäßig auch nichts eingeben.
Die Funktionen existieren nicht!

Ich möchte sie auch in der Class nicht definieren diese soll weiterhin wie ein Record aussehen.

:wiejetzt:
Schreibs einfach hin, bitte schreibs einfach hin. :roteyes::spin2::freak:
Der Klasse tut es nicht weh, wenn sie nicht mehr wie ein record aussieht.

[EWeiss]

Zitat:

Zitat von TiGü (Beitrag 1374517)

Zitat:

Zitat von EWeiss (Beitrag 1374498)

Verstehst was ich meine?
Ich rede nicht davon das es grundsätzlich nicht geht sondern davon das ich beides in meiner Class/Record nicht definiert habe.
Ohne Definition kann ich dort Codemäßig auch nichts eingeben.
Die Funktionen existieren nicht!

Ich möchte sie auch in der Class nicht definieren diese soll weiterhin wie ein Record aussehen.

:wiejetzt:
Schreibs einfach hin, bitte schreibs einfach hin. :roteyes::spin2::freak:
Der Klasse tut es nicht weh, wenn sie nicht mehr wie ein record aussieht.

Tue dir den gefallen..
Doch mir! LOL

gruss

[EWeiss]

Zitat:

Zitat von Klaus01 (Beitrag 1374516)

.. 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!

[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:

Zitat von jaenicke (Beitrag 1374492)

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;

[EWeiss]

Zitat:

Zitat von TiGü (Beitrag 1374520)

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 :roteyes::spin2: ops.. dritte hab ich nicht gefunden.

gruss

[TiGü]

Zitat:

Zitat von EWeiss (Beitrag 1374523)

Zitat:

Zitat von TiGü (Beitrag 1374520)

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!

[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