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.