ja stimmt, daran lags, warum auch immer wird bei der vorgegebenen
Unit UList nach dem einfügen nicht auf das aktuell eingefügt element gesetzt... lol
Delphi-Quellcode:
procedure TList.insertBehind (pObject: TObject);
var newListElem : TElement;
begin
//Falls der aktuelle Zeiger hinter der Liste steht, einen nach vorne rücken
if zeiger=dummyBehind then previous;
//Nun einfügen
newListElem:=TElement.create(pObject);
//Zuerst den neuen Knoten in die Liste einhänge
newListElem.setzeNext(zeiger.gibNext);
newListElem.setzePrevious(zeiger);
//Dann den alten Nachfolger über seinen neuen Vorgänger informieren
zeiger.gibNext.setzePrevious(newListElem);
//Zuletzt den neuen Knoten als den aktuellen Nachfolger einsetzen
zeiger.setzeNext(newListElem);
next; // NACHTRÄGLICH HINZUGEFÜGT !!!
end;