Doppelt verkette Liste

[Chris P]

Hi Leute, kann mir jemand die Struktur einer doppelt verketten Liste geben?

Danke...

[neolithos]

Delphi-Quellcode:

type
  PDList = ^TDList;
  TDList = record
    pPrev,
    pNext : PDList;
  end;

Reicht das?

[Chris P]

Nein, ich meinte, wenn man z.B. die Zahlen von 1 - 10 in der Liste speicher will.
Mit dem NEXT Zeiger hab ich keine Probleme, aber was muss ich mit dem PREV Zeiger machen?

[Hansa]

willst du eine einfach verkettete Liste ?

[neolithos]

Prev zeigt immer auf den vorhergehenden Eintrag.

Also

Code:

                 1    2    3    4    5    6    7    8    9    10
Prev zeigt auf  nil   1    2    3    4    5    6    7    8    9
Next zeigt auf   2    3    4    5    6    7    8    9    10  nil

[Chris P]

Danke, aber könntest du mir das in die Delphi-Sprache übersetzen?

[neolithos]

Zitat:

Zitat von Chris P

Danke, aber könntest du mir das in die Delphi-Sprache übersetzen?

:gruebel: Soll das heißen du willst kompletten Code :gruebel:

[Chris P]

Ein kleiner Ansatz wäre nicht schlecht...

[xineohp]

reicht das? oder willst du auch noch den Rest? :)

Delphi-Quellcode:

type
  Datentyp = string;

  Zeiger = ^Element;

  Element = record
    Inhalt : Datentyp;
    Nachfolger,
    Vorgaenger : Zeiger;
  end;

  tLineareListe = class
  protected
    aktuell,
    First, Last : Zeiger;
    // First = links ; Last = rechts
    Anzahl : integer;

    function getInhalt : Datentyp;
    procedure setInhalt(Inhalt : Datentyp);
  public
    constructor create;

    procedure clear;

    procedure nach_links;
    procedure nach_rechts;
    procedure zum_Anfang;
    procedure zum_Ende;

    procedure loeschen;
    procedure links_anfuegen;
    procedure rechts_anfuegen;
    procedure links_einfuegen;
    procedure rechts_einfuegen;

    function istLeer : boolean;
    function getAnzahl : integer;
    function istAnfang : boolean;
    function istEnde :boolean;

    property Value : Datentyp read getInhalt write setInhalt ;
  end;

phoenix

PS: Fragt nicht warum das so aufgebläht ist ... mein Infolehrer wollte es halt damals so :roll:

[Chris P]

Es wäre net, wenn du mir das ganze Programm geben könntest.

[xineohp]

Ist das dein Ernst? Ein bisschen könntest du ja auch selber machen!
Naja, ist zwar ideologisch falsch, aber wenn du unbedingt willst... :roll:

[Chris P]

Wieso fragst du mich dann erst, ob ich es haben will?

Man kann viel selber machen, aber wozu ist denn Delphi Praxis da????????????????

Aber trotzdem danke...

[xineohp]

hm, meiner Ansicht dient die DP dazu das eigene Wissen zuerweitern ... durch simples Abschreiben lernt man in der Regel wenig :!:

Aber naja, die Hauptsache ist: :dp:

[Chris P]

Wie kann man denn sein wissen erweitern, wenn man schon alles probiert hat das Problem alleine zu lösen und es net klappt. Dann gibts doch nur noch die Hilfe eines anderen, oder? :cheers:

[xineohp]

auch wieder wahr ... :mrgreen: