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