Re: lineare liste mit pointer
ja das wäre mir ja egal, ob er das vorne oder hinten anhängt.
in wieweit muss ich denn die funktion abändern ? |
Re: lineare liste mit pointer
Das kommt darauf an, was du mit der Liste erreichen willst. Soll die Liste geordnet sein, brauchst du eine Anhängen-(Append) und eine Einfügeb-(Insert) Funktion.
|
Re: lineare liste mit pointer
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:
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:
Listenelement = Class
inhalt : TObject; vor, nach : Listenelement;
Delphi-Quellcode:
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.
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; 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:
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.
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; "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. :) |
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:14 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz