Also in etwa so:
Code: Alles auswählen
structure
Long.l
String.s
LinkedList()
endstructure
Code: Alles auswählen
structure
Long.l
String.s
LinkedList()
endstructure
Code: Alles auswählen
Structure test
x.l
y.l
pntrLL.l
EndStructure
NewList List1()
NewList List2()
NewList chkList()
AddElement(chkList())
Procedure checkout(*chck.test)
ChangeCurrentElement(chkList(), *chck\pntrLL)
chkList() + 22
EndProcedure
DefType.test var1, var2
AddElement(List1()):List1() = 55
AddElement(List1()):List1() = 99
FirstElement(List1())
AddElement(List2()):List2() = 123
var1\pntrLL = @List1()
var2\pntrLL = @List2()
Debug "-------- var1 ----------"
Debug "vorher: " + Str(List1())
checkout(var1)
Debug "nachher: " + Str(List1())
NextElement(List1())
Debug List1()
Debug "-------- var2 ----------"
Debug "vorher: " + Str(List2())
checkout(var2)
Debug "nachher: " + Str(List2())