Verwendung von Strukturen für Objekte?

[NicTheQuick]

Ja, aber wie gesagt musst du das Sternchen weglassen:

Code: Alles auswählen

LineXY(n()\x, n()\y, n()\parent\x, n()\parent\y)

[Travis]

thx. Wenn ich aber so direkt auf die Werte des parents zugreifen will, gibt's nen Fehler. Geht erst wenn ich vorher zum parent zurückspringe und dann die Werte abrufe.


Führt zu "Verwendung einer undefinierten Struktur: I."

Code: Alles auswählen

;Debug "Values from parent (last Element)"
;Debug n()\parent\x
;Debug n()\parent\y

So gehts ist aber ziemlich umständlich.

Code: Alles auswählen

ChangeCurrentElement(n(), n()\parent)
Debug "Values from parent (last Element)"
Debug n()\x
Debug n()\y
Debug n()\parent

Oder geht das nicht anders?


(kompletter Code, so geht's)

Code: Alles auswählen

Structure Node
 x.l
 y.l
 *parent
EndStructure

Global NewList n.node()

Procedure NewNode(x,y,*parent.node)
 AddElement(n())
 n()\x = x
 n()\y = y
 n()\parent = *parent
EndProcedure

NewNode(10, 5, 0)
NewNode(20,10,n())

FirstElement(n())
Debug "First Element: "
Debug n()
Debug n()\x
Debug n()\y
Debug n()\parent

LastElement(n())
Debug "Last Element: "
Debug n()
Debug n()\x
Debug n()\y
Debug n()\parent

ChangeCurrentElement(n(), n()\parent)
Debug "Values from parent (last Element)"
Debug n()\x
Debug n()\y
Debug n()\parent

[NicTheQuick]

Deine Struktur war falsch.

Code: Alles auswählen

Structure Node
	x.l
	y.l
	*parent.Node  ;Das .Node ist wichtig!
EndStructure

Global NewList n.node()

Procedure NewNode(x, y, *parent.Node)
	If AddElement(n())
		n()\x = x
		n()\y = y
		n()\parent = *parent
	EndIf
EndProcedure

NewNode(10, 5, 0)
NewNode(20, 10, n())

FirstElement(n())
Debug "First Element: "
Debug n()
Debug n()\x
Debug n()\y
Debug n()\parent

LastElement(n())
Debug "Last Element: "
Debug n()
Debug n()\x
Debug n()\y
Debug n()\parent

Debug "Values from parent (last Element)"
Debug n()\parent
Debug n()\parent\x
Debug n()\parent\y
Debug n()\parent\parent

[Travis]

Ah, danke. Ich wusste doch das dass irgendwie gehen muss. Ist schon manchmal verwirrend sowas alles neu zu lernen, besonders, wenn man auch noch BlitzBasic Systax im Kopf hat. Mit dem Rest sollte ich jetzt alleine klar kommen.