Linked Lists - Elemente nach oben verschieben ??

[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

[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