Seite 1 von 1
Linked Lists - Elemente nach oben verschieben ??
Verfasst: 05.12.2004 14:25
von Leo
Also ich hab eine Linked List sagen wir mal mit 20 Elementen gefüllt. Jetzt will ich aber dass, wenn ein 21. Element dazu kommt, dass jedes Element den Text des nachfolgenden Elementes erhält und das erste Element gelöscht wird... wie kann man das machen? Das will mir einfach net einfallen
Verfasst: 05.12.2004 14:59
von NicTheQuick
Vielleicht so?
Code: Alles auswählen
NewList blabla.l()
Procedure AddElementEx()
If CountList(blabla()) = 20
If FirstElement(blabla())
DeleteElement(blabla())
EndIf
EndIf
LastElement(blabla())
ProcedureReturn AddElement(blabla())
EndProcedure
For a.l = 1 To 21
If AddElementEx()
blabla() = a
EndIf
Next
ForEach blabla()
Debug blabla()
Next