Verschachtelte Types löschen

Übersicht

BlitzMax, BlitzMax NG

Allgemein

	marcel_bohn Betreff: Verschachtelte Types löschen	Di, Apr 24, 2012 18:15 Antworten mit Zitat
Wie der Titel schon sagt kann ich meine verschachtelten types nicht entfernen. Hab mir schon einige stunden den kopf darüber zerbrochen aber noch keine Lösung gefunden. Ich glaub ich versteh bei den verschachtelten types irgendetwas falsch. hier mal ein Beispiel: BlitzMax: [AUSKLAPPEN] [EINKLAPPEN] Type player Field x:Int,y:Int,tot:Int,klasse:Int Field img:image End Type Type image Field sprite:TImage,img_id:Int End Type Global player_list:TList = CreateList() Global image_list:TList = CreateList() Local i:Int For i = 0 To 5 p:player = New player img:image = New image img.sprite = sprite1:TImage '<--irgendein sprite p.img = img ListAddLast(image_list,img:image) ListAddLast(player_list,p:player) Next jetzt müsste ich doch 5 "player" haben, die jede auf ein individuelles "imgage" haben bzw. darauf zeigen, ich kann zwar das image der player verändern: BlitzMax: [AUSKLAPPEN] [EINKLAPPEN] For p:player = EachIn player_list Select p.klasse Case 1 p.img.sprite = sprite2:TImage Case 2 p.img.sprite = sprite3:TImage EndSelect Next aber wenn ich nun das image entfernen will, werden mehrere images gelöscht BlitzMax: [AUSKLAPPEN] [EINKLAPPEN] For p:player = EachIn player_list If p.tot = True ListRemove(image_list,p.img) EndIf Next ich habe gehofft, das das image automatisch entfernt wird wenn das type das darauf zeigt gelöscht wird, aber das ist leider nicht der Fall... bitte hilfe!

marcel_bohn

Betreff: Verschachtelte Types löschen

Di, Apr 24, 2012 18:15
Antworten mit Zitat

Wie der Titel schon sagt kann ich meine verschachtelten types nicht entfernen. Hab mir schon einige stunden den kopf darüber zerbrochen aber noch keine Lösung gefunden. Ich glaub ich versteh bei den verschachtelten types irgendetwas falsch.

hier mal ein Beispiel:

BlitzMax: [AUSKLAPPEN]



Type player

     Field x:Int,y:Int,tot:Int,klasse:Int
     Field img:image

End Type

Type image

     Field sprite:TImage,img_id:Int

End Type

Global player_list:TList = CreateList()
Global image_list:TList = CreateList()

Local i:Int
For i = 0 To 5
     p:player = New player
     img:image = New image
     img.sprite = sprite1:TImage             '<--irgendein sprite
     p.img = img
     ListAddLast(image_list,img:image)
     ListAddLast(player_list,p:player)
Next

jetzt müsste ich doch 5 "player" haben, die jede auf ein individuelles "imgage" haben bzw. darauf zeigen, ich kann zwar das image der player verändern:

BlitzMax: [AUSKLAPPEN]


For p:player = EachIn player_list
     Select p.klasse
          Case 1 p.img.sprite = sprite2:TImage
          Case 2 p.img.sprite = sprite3:TImage
     EndSelect
Next

aber wenn ich nun das image entfernen will, werden mehrere images gelöscht

BlitzMax: [AUSKLAPPEN]


For p:player = EachIn player_list
    If p.tot = True
         ListRemove(image_list,p.img)
    EndIf
Next

ich habe gehofft, das das image automatisch entfernt wird wenn das type das darauf zeigt gelöscht wird, aber das ist leider nicht der Fall...

bitte hilfe!

Zuletzt bearbeitet von marcel_bohn am Di, Apr 24, 2012 18:44, insgesamt einmal bearbeitet

	Lion	Di, Apr 24, 2012 18:28 Antworten mit Zitat
Zu ersteinmal würde ich dir empfehlen SuperStrict zu benutzen, hilft manchmal ungemein durchzublicken. Desweiteren ist es fragwürdig, das Bild des Spielers zu löschen anstatt das ganze irgendwie sauber unterzubringen. Und eine For-Schleife die von 0 bis 5 geht hat 6 Durchläufe, nicht 5 (dementsprechend hast du auch 6 Instanzen). Aber zu deinem Problem: Du scheinst lediglich einen Verweis auf ein Bild zu machen und nicht ein Bild zu laden. Denn du schreibstBlitzMax: [AUSKLAPPEN] [EINKLAPPEN] img.sprite = sprite1 '<--irgendein sprite Hier siehst du ja selbst, dass einfach die Variable "sprite1" übernommen wird, nichts anderes. Wenn du das Bild tatsächlich löschen willst, solltest du sprite1 löschen, aber ohne SuperStrict oder anständige Deklarierung deiner Variablen ist es schwer zu sehen, wie du die "image"-Klasse aufgebaut hast (was sind denn das für Variablen?!). Desweiteren solltest du, falls du den Spieler nach seinem Ableben erhalten willst, darüber nachdenken, ob du den Spieler wirklich löschen willst oder ob du einfach nur eine Abfrage machst, ob der Spieler noch lebt und dementsprechend einfach nur Bilder anzeigst, denn wenn du im späteren Spielverlauf neue Spieler einbringst und für jeden Spieler noch einmal das Bild lädst, geht das ziemlich auf den Speicher und die Ladezeit. Daher lieber vermeiden. Wie eben schon gesagt, lieber alle Bilder einmal laden und erst bei Beendigung des Spiels löschen und nicht für jeden Spieler ein einzelnes Bild laden.
Intel Core 2 Quad 4x2.66 ghz - 4gb ddr2 - nvidia GeForce GTX660 2gb Intel Atom 1x1.83 ghz - 2gb ddr2 - intel GMA 3150 256mb AMD A10-5750M 4x2.5 ghz - 8 gb ddr4 - AMD R9 M290x

Lion

Di, Apr 24, 2012 18:28
Antworten mit Zitat

Zu ersteinmal würde ich dir empfehlen SuperStrict zu benutzen, hilft manchmal ungemein durchzublicken.
Desweiteren ist es fragwürdig, das Bild des Spielers zu löschen anstatt das ganze irgendwie sauber unterzubringen. Und eine For-Schleife die von 0 bis 5 geht hat 6 Durchläufe, nicht 5 (dementsprechend hast du auch 6 Instanzen).
Aber zu deinem Problem:
Du scheinst lediglich einen Verweis auf ein Bild zu machen und nicht ein Bild zu laden. Denn du schreibstBlitzMax: [AUSKLAPPEN]

     img.sprite = sprite1             '<--irgendein sprite

Hier siehst du ja selbst, dass einfach die Variable "sprite1" übernommen wird, nichts anderes. Wenn du das Bild tatsächlich löschen willst, solltest du sprite1 löschen, aber ohne SuperStrict oder anständige Deklarierung deiner Variablen ist es schwer zu sehen, wie du die "image"-Klasse aufgebaut hast (was sind denn das für Variablen?!).
Desweiteren solltest du, falls du den Spieler nach seinem Ableben erhalten willst, darüber nachdenken, ob du den Spieler wirklich löschen willst oder ob du einfach nur eine Abfrage machst, ob der Spieler noch lebt und dementsprechend einfach nur Bilder anzeigst, denn wenn du im späteren Spielverlauf neue Spieler einbringst und für jeden Spieler noch einmal das Bild lädst, geht das ziemlich auf den Speicher und die Ladezeit. Daher lieber vermeiden.
Wie eben schon gesagt, lieber alle Bilder einmal laden und erst bei Beendigung des Spiels löschen und nicht für jeden Spieler ein einzelnes Bild laden.

Intel Core 2 Quad 4x2.66 ghz - 4gb ddr2 - nvidia GeForce GTX660 2gb
Intel Atom 1x1.83 ghz - 2gb ddr2 - intel GMA 3150 256mb
AMD A10-5750M 4x2.5 ghz - 8 gb ddr4 - AMD R9 M290x

	marcel_bohn	Di, Apr 24, 2012 18:41 Antworten mit Zitat
sry, ich änder das mal schnell

marcel_bohn

Di, Apr 24, 2012 18:41
Antworten mit Zitat

sry, ich änder das mal schnell

	marcel_bohn	Di, Apr 24, 2012 19:07 Antworten mit Zitat
erstmal danke für die antwort, aber der Code oben ist nur ein pseydo-code! ich lade das bild tatsächlich nur einmal und verlinke es mit meinem "image" objekt. Ich möchte nicht das "Timage" löschen sondern das objekt "image". das funktioniert wie oben beschrieben leider nicht!

marcel_bohn

Di, Apr 24, 2012 19:07
Antworten mit Zitat

erstmal danke für die antwort, aber der Code oben ist nur ein pseydo-code! ich lade das bild tatsächlich nur einmal und verlinke es mit meinem "image" objekt. Ich möchte nicht das "Timage" löschen sondern das objekt "image". das funktioniert wie oben beschrieben leider nicht!

	Xeres Moderator	Di, Apr 24, 2012 19:25 Antworten mit Zitat
Bitte editiere deine Beiträge anstatt Doppelposts zu machen, danke. SuperStrict benutzen, immer. Ein lauffähiger Code, der das Problem demonstriert, ist immer das einfachste für uns zum ausprobieren.
Win10 Prof.(x64)/Ubuntu 16.04\|CPU 4x3Ghz (Intel i5-4590S)\|RAM 8 GB\|GeForce GTX 960 Wie man Fragen richtig stellt \|\| "Es geht nicht" \|\| Video-Tutorial: Sinus & Cosinus THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

Xeres

Moderator

Di, Apr 24, 2012 19:25
Antworten mit Zitat

Bitte editiere deine Beiträge anstatt Doppelposts zu machen, danke.

SuperStrict benutzen, immer. Ein lauffähiger Code, der das Problem demonstriert, ist immer das einfachste für uns zum ausprobieren.

Win10 Prof.(x64)/Ubuntu 16.04|CPU 4x3Ghz (Intel i5-4590S)|RAM 8 GB|GeForce GTX 960
Wie man Fragen richtig stellt || "Es geht nicht" || Video-Tutorial: Sinus & Cosinus
THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

	marcel_bohn	Di, Apr 24, 2012 21:47 Antworten mit Zitat
so nach ca. 2h Fehlersuche habe ich den fehler gefunden, ich habe jetzt einen neuen Code geschrieben mit dem ihr das Problem testen könnt. Der Fehler wird durch die compare methode ausgelöst, entfernt diese und es funktioniert problemlos! BlitzMax: [AUSKLAPPEN] [EINKLAPPEN] Type player Field x:Int,y:Int,id:Int,img:image End Type Type image Field id:Int,y:Int Method compare(other:Object) If Not image(other) Return 0 EndIf Local o:image = image(other) If o.y > Self.y Return -1 ElseIf o.y < Self.y Return 1 EndIf Return 0 End Method End Type Global player_list:TList = CreateList() Global image_list:TList = CreateList() Local p:player Local img:image Local i:Int For i = 0 To 3 p:player = New player img:image = New image img.id = i p.img = img p.id = i ListAddLast(image_list,img:image) ListAddLast(player_list,p:player) Next 'zuweisung prüfen For p:player = EachIn player_list Print "player"+p.id+" = image"+p.img.id Next Print "jedes objekt zeigt also auf SEIN Image" Print "" Print "löschen wir nun das letzte image:" For p:player = EachIn player_list If p.id = 3 ListRemove(image_list,p.img) p.img = Null EndIf Next Print "nun prüfen wir ob auch wirklich das letzte img gelöscht wurde" Print "" For img:image = EachIn image_list Print "image"+img.id Next Print "" Print "und siehe da: das erste image wurde gelöscht...." dann hätte ich noch ne frage, wenn ich superstrict mache dann zeigt es mir ein fehler bei der compare methode an. Wie mache ich das es funktioniert

marcel_bohn

Di, Apr 24, 2012 21:47
Antworten mit Zitat

so nach ca. 2h Fehlersuche habe ich den fehler gefunden, ich habe jetzt einen neuen Code geschrieben mit dem ihr das Problem testen könnt. Der Fehler wird durch die compare methode ausgelöst, entfernt diese und es funktioniert problemlos!
BlitzMax: [AUSKLAPPEN]



Type player

	Field x:Int,y:Int,id:Int,img:image

End Type 

Type image

	Field id:Int,y:Int

	Method compare(other:Object) 
      If Not image(other) 
         Return 0 
	  EndIf
      Local o:image = image(other) 
      If o.y > Self.y 
         Return -1 
      ElseIf o.y < Self.y
         Return 1 
      EndIf 
      Return 0 
   End Method 

End Type

Global player_list:TList = CreateList()
Global image_list:TList = CreateList()

Local p:player 
Local img:image
Local i:Int

For i = 0 To 3
	p:player = New player
	img:image = New image
	img.id = i
	p.img = img
	p.id = i
	ListAddLast(image_list,img:image)
	ListAddLast(player_list,p:player)
Next

'zuweisung prüfen
For p:player = EachIn player_list
	Print "player"+p.id+" = image"+p.img.id
Next
Print "jedes objekt zeigt also auf SEIN Image"
Print ""
Print "löschen wir nun das letzte image:"


For p:player = EachIn player_list
	If p.id = 3 
		ListRemove(image_list,p.img)
		p.img = Null
	EndIf
Next

Print "nun prüfen wir ob auch wirklich das letzte img gelöscht wurde"
Print ""
For img:image = EachIn image_list
	Print "image"+img.id
Next
Print ""
Print "und siehe da: das erste image wurde gelöscht...."

dann hätte ich noch ne frage, wenn ich superstrict mache dann zeigt es mir ein fehler bei der compare methode an. Wie mache ich das es funktioniert

	Lion	Di, Apr 24, 2012 22:20 Antworten mit Zitat
Statt BlitzMax: [AUSKLAPPEN] [EINKLAPPEN] Method compare(other:Object) schreibst du BlitzMax: [AUSKLAPPEN] [EINKLAPPEN] Method compare:Int(other:Object) Die Methode hat ja einen Return-Wert, daher muss dieser auch angegeben werden (Int). Wenn du das nächste mal Fehler hast, wärs auch hilfreich zu schreiben, was der Debugger für einen Fehler ausgibt. Du gehst ja auch nicht zum Arzt und sagst, dass es dir Scheiße geht ohne irgendwelche Symptome zu beschreiben.
Intel Core 2 Quad 4x2.66 ghz - 4gb ddr2 - nvidia GeForce GTX660 2gb Intel Atom 1x1.83 ghz - 2gb ddr2 - intel GMA 3150 256mb AMD A10-5750M 4x2.5 ghz - 8 gb ddr4 - AMD R9 M290x

Lion

Di, Apr 24, 2012 22:20
Antworten mit Zitat

Statt
BlitzMax: [AUSKLAPPEN]

Method compare(other:Object)

schreibst du
BlitzMax: [AUSKLAPPEN]

Method compare:Int(other:Object)

Die Methode hat ja einen Return-Wert, daher muss dieser auch angegeben werden (Int).
Wenn du das nächste mal Fehler hast, wärs auch hilfreich zu schreiben, was der Debugger für einen Fehler ausgibt.
Du gehst ja auch nicht zum Arzt und sagst, dass es dir Scheiße geht ohne irgendwelche Symptome zu beschreiben.

Intel Core 2 Quad 4x2.66 ghz - 4gb ddr2 - nvidia GeForce GTX660 2gb
Intel Atom 1x1.83 ghz - 2gb ddr2 - intel GMA 3150 256mb
AMD A10-5750M 4x2.5 ghz - 8 gb ddr4 - AMD R9 M290x

	marcel_bohn	Di, Apr 24, 2012 22:24 Antworten mit Zitat
alles klar xD merk ich mir fürs nächste mal, danke für deine Hilfe!

marcel_bohn

Di, Apr 24, 2012 22:24
Antworten mit Zitat

alles klar xD merk ich mir fürs nächste mal, danke für deine Hilfe!

	Xeres Moderator	Di, Apr 24, 2012 22:27 Antworten mit Zitat
Das tiefer liegende Problem ist, dass beim Löschen die Werte mit Compare verglichen werden. Da du nicht mehr die Objekt Adressen sondern y werte vergleichst, die alle 0 sind, wird das erste Objekt entfernt. Du könntest eine Sortierfunktion benutzen, oder den TLink speichern, um ihn nicht in der Liste suchen zu müssen.
Win10 Prof.(x64)/Ubuntu 16.04\|CPU 4x3Ghz (Intel i5-4590S)\|RAM 8 GB\|GeForce GTX 960 Wie man Fragen richtig stellt \|\| "Es geht nicht" \|\| Video-Tutorial: Sinus & Cosinus THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

Xeres

Moderator

Di, Apr 24, 2012 22:27
Antworten mit Zitat

Das tiefer liegende Problem ist, dass beim Löschen die Werte mit Compare verglichen werden. Da du nicht mehr die Objekt Adressen sondern y werte vergleichst, die alle 0 sind, wird das erste Objekt entfernt.
Du könntest eine Sortierfunktion benutzen, oder den TLink speichern, um ihn nicht in der Liste suchen zu müssen.

Übersicht

BlitzMax, BlitzMax NG

Allgemein

Nach Oben

BlitzBasic Portal

Verschachtelte Types löschen

Betreff: Verschachtelte Types löschen