Das ist eine ziemlich einfach aufgebaute lineare Liste:
Jedes Objekt kennt seinen Vorgänger und seinen Nachfolger und natürlich seinen Inhalt, der irgendwas sein muss, dass von TObject abgeleitet wurde. Dies erkennt man unschwer an den Attributen der Klasse "Listenelement":
Delphi-Quellcode:
Listenelement = Class
inhalt : TObject;
vor, nach : Listenelement;
Die eigentliche Liste ist aber die Klasse "List". Beim Erstellen wird ein Anfangs- und ein End-Listenelement erstellt, diese beiden werden verknüpft, in dem die Attribute "vor" und "nach" dementstrechend gesetzt werden:
Delphi-Quellcode:
constructor List.init;
var vorne, hinten : Listenelement;
begin
create;
vorne:= Listenelement.init;
hinten:=listenelement.init;
vorne.nach := hinten;
hinten.vor := vorne;
erstes:= vorne;
letztes:= hinten;
aktuelles := vorne;
end;
Zusätzlich muss die Liste wissen, wo der Anfang und wo das Ende und welches das aktuelle Element ist, auch diese werden hier festgelegt und sind die vorher initalisieren Elemente. Das aktuelle Element ist nach dem Initialisieren das erste. Diese beiden ersten Objekte bekommen aber nie Inhalt, sie sind nur da, um den Anfang und das Ende festzulegen.
Um Elemente einzufügen gibt es die Methoden "insert before" und "insert behind", das "before" und "behind" geht dabei immer vom aktuellen Listenelement aus (Attribut "aktuelles", der Klasse "List").
Ich gehe jetzt mal auf "inser before" ein, analog dazu funktioniert auch "insert behind"
:
Um das Element dort einzufügen, muss ein neues Element erstellt werden, dass als Attribut "vor" das Element vor dem aktuellen speichert, im Attribut "nach" das aktuelle selber. Außerdem muss dem aktuellen Element noch mitgeteilt werden, dass sich sein Vorgänger geändert hat, also enthält sein Attribut "vor" einen Pointer auf das neu erstellte Element. Und das Element, dass vor dem neuen steht muss auch seinen neuen Nachfolger kennen, also erhält sein Attribut "nach" ebenfalls einen Pointer auf das neue.
Außerdem wird natürlich der Inhalt des neuen Elements noch gesetzt, dieser msus als Parameter übergeben werden.
Hier nochmal die komplette Methode, um das besser nachvollziehen zu können:
Delphi-Quellcode:
procedure List.insertBefore (pInhalt: TObject);
var neues : Listenelement;
begin
neues:=Listenelement.init;
neues.inhalt := pInhalt;
neues.vor:= aktuelles.vor;
neues.nach := aktuelles;
aktuelles.vor.nach:=neues;
aktuelles.vor:=neues;
end;
Die anderen Methoden sind alle sehr einfach. "Next" und "Previous" ändern das aktuelle Element, dazu muss einfach nur der Nachfolger oder Vorgänger des aktuellen Elements abgefragt werden. Mit "toFirst" und "toLast" gelangt man jeder Zeit um ersten und letzten Element, dies ist ganz einfach, da die Pointer hierdrauf bereits am Anfang gespeichert wurden.
"Delete" löscht das aktuelle Element, dazu müssen einfach die Attribute "vor" und "nach" des Vorgängers und Nachfolgers entsprechend geändert werden.
Hoffe das hilft dir.
