SuperStrict
Type Tirgendetwas
   Global liste:TList=New TList
   Method New() 'wird beim Erstellen des Objektes ausgeführt
      liste.AddLast(Self) 'Das Objekt wird beim Erstellen automatisch zur Liste hinzugefügt.
      '"AddLast" gibt ein TLink-Objekt, einen Eintrag in einer TList, zurück, welches man zur Optimierung im Objekt übrigens zwischenspeichern sollte.
   EndMethod
   Method InsertAfter(other:Tirgendetwas)
      liste.Remove(Self) 'löscht das Objekt aus der Liste (mit Zwischenspeicherung optimierbar -> "link.Remove()" stattdessen)
      Local otherLink:TLink=liste.FindLink(other) 'das Eintragsobjekt des anderen Objektes bestimmen (mit Zwischenspeicherung optimierbar)
      liste.InsertAfterLink(Self,otherLink) 'Der Name spricht hoffentlich für sich.
   EndMethod
   Method InsertLast()
      liste.Remove(Self) 'siehe oben
      liste.AddLast(Self) '------||------
   EndMethod
EndType