1:
2:
3:
4:
5:
6:
7:
8:

TElement = class
private
  next: TElement; 
  prev: TElement; 
// Hier hast du die Zeiger!
public
  constructor create;
end;					

1:
2:
3:
4:
5:

TKnotenElement = class(TElement)
  KnotenNummer:integer;
  Adjazenzliste:TDoppeltVerketteteListe;
  constructor create(nr:integer);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

TDoppeltVerketteteListe = class
  private
    f: TElement;  // Erstes Element
    l: TElement;  // letztes Element
    c: TElement;  // aktuelles Element
    s: integer;   // Anzahl der Objekte
  public
    constructor create;
    destructor destroy;
  // ******** Navigation durch die Liste
    procedure first;  // geht an den Anfang der Liste
    procedure last;   // geht ans Ende der Liste
    procedure next;   // geht in der Liste eine Position nach hinten
    procedure prev;   // geht in der Liste eine Position nach vorne
  // ******** Elemente verwalten
    procedure insert(e:TElement); // fügt ein Element ein
    procedure delete; // löscht das aktuelle Element
  // ******** Informationen
    function count: integer;    // gibt die Anzahl de Elemente zurück
    function isempty: boolean;  // überprüft, ob die Liste leer ist
    function get: TElement;     // liefert das aktuelle Element zurück
    function islast: boolean;   // überprüft, ob man am Ende der Liste ist
end;