Doppelt verkette Liste

[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