Code: Alles auswählen
Structure node
posx.l
posy.l
EndStructure
NewList node.node()
Procedure CreateNode(x, y)
AddElement(node())
node()\posx = x
node()\posy = y
EndProcedure
;4 Knoten erzeugen
CreateNode(0,0)
CreateNode(4,0)
CreateNode(0,4)
CreateNode(4,4)
;Knoten ausgeben
ForEach node()
Debug Str(@node()) + " (" + Str(ListIndex(node())) + ") " + Str(node()\posx) + ";" + Str(node()\posy)
Next
;Knoten löschen und hinzufügen
Debug "----------"
FirstElement(node()): DeleteElement(node())
FirstElement(node()): DeleteElement(node())
FirstElement(node()): CreateNode(20,30)
LastElement(node()): CreateNode(40,99)
LastElement(node()): CreateNode(60,60)
;Knoten ausgeben
ForEach node()
Debug Str(@node()) + " (" + Str(ListIndex(node())) + ") " + Str(node()\posx) + ";" + Str(node()\posy)
NextIch hoffe ich konnte mich verständlich ausdrücken
