[Delphi] Mein Lifo funzt net~.~

unit uTElement; //Die 'zwischenklasse für die einzufügenden objekte

interface

type

 TElement=class
 protected
 vorgaenger:TElement;
 inhalt:TObject;
 public
 constructor create(i:TObject); //beim creator wird der inhalt direkt miteingebunden
 procedure set_vorgaenger(v:TElement);
 function get_vorgaenger:TElement;
 function get_inhalt:TObject; //liefert ein tobject, weshalb das lifo vielseitigerer wird
 end;

implementation

constructor TElement.create(i:TObject);
begin
 if i<>nil then
 inhalt:=i;
end;

procedure TElement.set_vorgaenger(v:TElement);
begin
 if v<>nil then
 vorgaenger:=v;
end;

function TELement.get_vorgaenger:TElement;
begin
 if vorgaenger<>nil then
 result:=vorgaenger
 else
 result:=nil;
end;

function TElement.get_inhalt:TObject;
begin
 if inhalt<>nil then
 result:=inhalt
 else
 result:=nil;
end;

end.
 

unit uTLifo; //last in, first out

interface

uses uTElement;

type

 TLifo=class
 protected
 ende:TElement; //um an das 'oberste' element des stapels zu kommen
 public
 destructor destroy;override;
 procedure push(i:TObject); //ein element einfügen
 function top:TObject; //den inhalt des obersten elements anzeigen
 function pop:TObject; //das oberste element vom stapel nehmen und inhalt ausgeben
 end;

implementation

destructor TLifo.destroy;
var h:TObject;
begin
 while top<>nil do
 h:=pop;
end;

procedure TLifo.push(i:TObject);
var h:TElement;
begin
 if top<>nil then
 begin
 h:=TElement.create(i);
 h.set_vorgaenger(ende);
 ende:=h;
 end
 else
 begin
 h:=TElement.create(i);
 ende:=h;
 end;
end;

function TLifo.top:TObject;
begin
 if ende<>nil then
 result:=ende.get_inhalt
 else
 result:=nil;
end;

function TLifo.pop:TObject;
var h:TElement;
begin
 if ende<>nil then
 begin
 result:=ende.get_inhalt;
 h:=ende.get_vorgaenger;
 ende.free;
 ende:=h;
 end
 else
 result:=nil;
end;

end.