Delphi Stack

interface

uses Classes;

type
  TStack = class(TList)                   //Von TList ableiten
  public
    function push(Item:Pointer):Integer;  // Legt Element auf Stapel ab und gibt
                                          // dessen Index zurück
    function pop:Pointer;                 // holt das zuletzt abgelegte element
                                          // vom Stapel und löscht es
  end;

implementation

{ TStack }

function TStack.pop: Pointer;
begin
  if Count > 0 then                       // Überprüfen, ob die Liste leer ist
  begin
    result := Items[Count - 1];           // Rückgabe-Pointer in Result ablegen
    Count := Count - 1;                   // Letztes Element löschen
  end
  else
  begin
    result := NIL;
  end;
end;

function TStack.push(Item: Pointer): Integer;
begin
  result := Add(Item);
end;

StackVar := TStack.Create;

FreeAndNil(StackVar);