Thema: Delphi Doppelt Verkettete Liste

Einzelnen Beitrag anzeigen

Stillmatic

Registriert seit: 25. Apr 2007
110 Beiträge
 
#1

Doppelt Verkettete Liste

  Alt 19. Jun 2007, 18:16
Hallo DP'ler

Kann mir einer von euch sagen wie man am schlausten ein Element aus einer Doppelt verketteten Liste löscht(egal an welcher Stelle)!

Delphi-Quellcode:
procedure DeleteElement(Index : Integer);
Begin
  Element := getElement(Index); //Element = das zu löschende Element
  löschen := first; //First = Meine Komplette Liste

  //Element suchen
  While löschen^.info.ID <> Element.ID do
   Begin
     löschen := löschen^.previous;
   end;

   //Vorherige Speichern //Hier Speicher ich die Elemente vor dem zu löschenden Element in temp2
   temp2 := löschen.previous;
   temp2.next := Nil;

   //Next Speichern //Hier Speicher ich die Elemente nach dem zu löschenden Element in temp
   temp := löschen.next;
   temp.previous := Nil;


  //Element ausschließen //Nun will ich einfach das Element auschließen!-->also so zu sagen (temp2 + temp)
                                //So das an das Ende von temp2 temp geschrieben wird und somit das zu löschende
                                //Element einfach ausgeschlossen wird(aber ich weiß net wie ich das am besten umsetze)


end;
Wäre nett wenn mir einer bei dem Problem helfen könnte???
  Mit Zitat antworten Zitat